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module AiignMemory; 

AiignMemory - Allocated aligned buffers. 

J. P. Strait 29 Sep 81. 

Copyright (C) PERQ Systems Corporation. 

Abstract : 

This module allocates buffers which need to be aligned on 
boundaries that are multiples of 256 words. 

Version Number VI. 2 

exports 

type AlignedBuffer = array[0..01 of array[0..255] of Integer; 
AlignedPo inter = ^AlignedBuffer; 

procedure NewBuffer( var P: AlignedPo inter; S, A: Integer ); 

exception BadAlignment( A: Integer ); 

procedure NewBuffer( var P: AlignedPo inter; S, A: Integer 

Abstract : 

This procedure allocates buffers which must be aligned on 
boundaries that are multiples of 256 words. A new segment is 
allocated which is somewhat larger than the desired buffer size. 
The segment is set to be unmovable so that the alignment can be 
guaranteed. 

Parameters : 

P - Set to point to a new buffer which is aligned as desired. 
S - Desired size of the buffer in 256 word blocks. 
A - Alignment in 256 word blocks. That is, 1 means aligned on a 
256 word boundary, 2 means a 512 word boundary, and so on. 



Errors: 



BadAlignment if A is less than one or greater than 256. BadSize 
(memory manager) if S is less than one or Si-A-1 is greater than 
256. Other memory manager exceptions raised by CreateSegroent. 
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module AUocDisk; 

Written by CMU-people 

Copyright (C) 1980 PERQ Systems Corporation 

Abstract : 

Allocdisk allocates and deallocates disk pages. The partition has 
some number of contiguous pages on it. The number of pages in a 
partition is specified when the partition is created (using the 
Partition program). Segments can be created within a partition, 
e.g. segments may not span partitions. The entire disk can be 
thought of as a partition (the Root Partition) 

A DisklnformationBlock (DisklnfoBlock or DIB) contains all the 
fixed information about a disk, including its partition names, 
locations and sizes. It also contains a table used to locate boot 
segments A disk can be 'mounted' which means that its root 
partition is known to the system as an entry in the DiskTable. 

A Partition Information Block (PartlnfoBlock or PIB) contains all 
of the fixed information about a partition, A partition can also 
be 'mounted', and this is usually done as part of mounting the 
disk itself. Partitions mounted are entries in the PartTable. 
Within a partition, segments are allocated as doubly linked lists 
of pages 

The Free List of a segment is a doubly linked list of free pages. 
This module maintains this list, as well as the DeviceTable and 
PartTable It contains procedures for mounting and dismounting 
disks and partitions, as well as allocating and deallocating space 
within a partition. 

When allocating pages, the module updates the PartlnfoBlock every 
MaxAliocs calls on AUocDisk. Since the system may crash some time 
between updates, the pointers and free list size may not be 
accurate. 

When a partition is mounted, the pointers are checked to see if 
they point to free pages. If not, the head of the pointer is 
found by looking at the "filler" word of the block the free head 
does point to j( which presumably was allocated after the last 
update of PartlnfoBlock). The filler word has a short pointer to 
the next "free" page, and forms a linked list to the real free 
list header. Likewise, if the Free tail does not have a next 
pointer of 0, a deallocate is presumed to have been done since a 
PartlnfoBlock update, and NextAdr pointers are chased to find the 
real end of the Free List. 

Version Number V2.9 

{99BB«3«Bf3{3e3eXX5eX»XX} exports { X?BaeXX?SXXXXXXJ6X X XXXXXXXXXXX } 

imports Arith from Arith; 
imports ReadDisk from ReadDisk; 

const 
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MAXDISKS = 2; 
MAXPARTITIONS = 10; 
MAXPARTCHARS = 8; 



(Floppy and HardDisk) 

{Maximum number of mounted partitions) 

{how many characters in a partition name) 



type 
PartString = string [MAXPARTCHARS); 
DeviceRecord 



{entry in the DeviceTable) 
{where the DisklnfoBlock is) 
{this DeviceTable entry is valid) 
Root Part it ion: PartString {name of this disk) 
end; 



record 

InfoBlk: DiskAddr; 
InUse : boolean; 



PartRecord = 



record 

PartHeadFree 

PartTailFree 

PartlnfoBlk 

PartRootDir 

PartNumOps 

PartNumFree 
PartlnUse 

PartMounted 
PartDevice 

Part St art 
PartEnd 
PartKind 
PartName 
end; 



(entry in the PartTable) 
DiskAddr; (pointer to Head of Free List) 
DiskAddr; (pointer to tail of Free List) 
DiskAddr; (pointer to PartlnfoBlock) 
DiskAddr; (pointer to Root Directory) 
integer; {how many operations done since 

last update of PartlnfoBlock) 
FSBit32; (HINT of how many free pages) 
boolean; (this entry in PartTable is 

valid) 
boolean; (this partition is mounted) 
integer; (which disk this partition is 

in) 
DiskAddr; (Disk Address of 1st page) 
DiskAddr; {Disk Address of last page) 
PartitionType; (Root or Leaf) 
PartString {name of this partition) 



var 
DiskTable 
PartTable 



array (0.. MAXDISKS- 11 of DeviceRecord; 
array [1.. MAXPARTITIONS) of PartRecord; 



procedure InitAlloc; (initialize the AllocDisk module, called during boot) 
procedure Devi ceMount( disk: integer); (mount a disk) 
procedure Devi ceDismountC disk : integer); (dismount a disk) 
function MountPartitionCname : string) : integer; (mount a partion, 

return PartTable index) 
procedure DismountPartitjon(name : string); (dismount a partition) 
function FindPartition(name : string) : integer; (given a partion name, 

look for it in PartTable, return 

index) 
function AllocDiskCpartition : integer) : DiskAddr; (allocate a free page 

from a partition) 
procedure DeallocDisk(addr : DiskAddr); (return a page to the free list) 
procedure DeallocChainCfirstaddr.lastaddr : DiskAddr; numblks : integer); 

(return a bunch of pages to free list) 
function WhichPartitionCaddr : DiskAddr) : integer; (given a Disk Address, 

figure out which partition it is in) 
procedure DisplayPartitions; (print the PartTable) 

Except i on NoFreePart i t i ons ; 
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Abstract : 

Raised when too many partitions are accessed at one time. The 
limit is MAXPARTITIONS. 
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Exception BadPart(msg, partName: String); 

Abstract : 

Raised when there is something wrong with a partition. This means 
that the Scavenger should be run. 

Parameters : 

msg is the problem and partName is the partition name. Print 
error message as: WriteLn( 'XX ',msg, ' for '.partName); 

Exception PartFulK partName: String); 

Abstract : 

Raised when there are no free blocks in a partition to be 
allocated. This means that some files should be deleted and then 
the Scavenger should be run. 

Parameters : 

partName is the full partition 

Procedure InitAlloc; Abstract Initialize the AllocDisk module 

Side Effects: Sets Initialized to a magic number; sets all InUse and 
PartlnUse to false 

Procedure Devi ceMount( disk : integer); 

Abstract : 

Mount the device specified by disk if not already mounted 
Parameters : 

Disk is a device; it should be zero for HardDisk and 1 for Floppy 
Environment: Expects DiskTable to be initialized 

Side Effects: Sets the DiskTable for device; loads Part Table with Part 
names on dev 

Errors: Error if no free partition slots in Part Table; 

NOTE: No mention is made if device has partitions with names same 
as those already loaded 
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Procedure DisplayPartitions; 

Abstract : 

Displays information about the current partitions 

Environment: Assumes PartTable and DiskTable set up; 

Calls: AddrToField; IntDouble, WriteLn; 
Procedure Devi ceDismount (disk : integer); 

Abstract : 

Removes device disk (0 or 1) from DiskTable and removes all its 
partitions 

Parameters : 

Disk is a device (0= HardDisk; l=Floppy) 

Side Effects: Sets DiskTableEdiskl .Inllse to false and removes all of 
disk's partitions 

Calls: Dismount Part it ion 

Function FindPartition(name : string ) : integer; 

Abstract : 

Searches through partition table looking for a partition named 
name; if found; returns its index in the table; 

Parameters : 

name is partition name of form -dev:part>*' or '':part>*' or "part>** 
where the final **>*' is optional in all forms. If dev isn't 
specified then searches through all partition names. If dev is 
specified; then only checks those partitions on that device; name 
may be in any case 

Returns: index in PartTable of FIRST partition with name name (there 
may be more than one partition with the same name in which case it 
uses the oldest one) or zero if not found or name malformed; 

Calls: UpperEqual 

Design: No device name specified is signaled by disk=MAXDISKS; 

otherwise disk is set to be the device which the device part of 
name specifies 

Function MountPartition(name : string) : integer; 



6 - 



POS Operating System - Module AllocDisk January 15, 1984 

Abstract : 

Searches for partition name in part table and mounts it if not 
mounted already; tries to read the head and tail of free list to 
see if valid 

Parameters : 

name is partition name of form *'dev:part>'* where **dev*' and **>** are 
optional 

Returns: index in part Table of partition for name or zero if not found 

Side Effects: if not mounted already, then reads in PartlnfoBlk and 
sets partTable fields; tries to read the head and tail of free 
list to see if valid 

Errors: if no free slots for partition then Raises NoFreePartitions if 
can't find free list head or tail then Raises BadPart 

Calls: FindPartition 

Procedure DismountPartition(name : string); 

Abstract : 

Removes partition name from PartTable 

Parameters : 

name is partition name of form ''dev:part>'' where "dev** and ">** are 
optional 

Side Effects: Writes out part information in table if partition InUse 
and mounted 

Calls: UpdatePartlnfo, Forget All 

Function AllocDisk(partition: integer) : DiskAddr; 

Abstract : 

Allocate a free block from partition 

Parameters : 

Partition is the partition index to allocate the block from 

Returns: Disk Address of newly freed block; 

Side Effects: Updates the partition info to note block freed; changes 
header, in buffer of block; writes new head of free list with its 
next and prev fields set to zero and its filler set to next free 
block; decrements PartNumFree 
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Errors: Raises PartFull if no free blocks in partition Raises BadPart 
if free list inconsistent 

Calls: ReadHeader, ChangeHeader, FlushDisk, UpdatePartlnfo 

Function WhichPartition(addr : DiskAddr) : integer; 

Abstract : 

Given a disk address; find the partition it is in 
Parameters: 

addr is a disk address 
Returns: index of partition addr falls inside of or zero if none 
Calls: DoubleBetween 

NOTE: DOESN'T CHECK IF ENTRY IN TABLE IS MOUNTED OR INUSE (XBugX?) 
Procedure Deal locDisk( addr : DiskAddr); 
Abstract : 

Returns block addr to whatever partition it belongs to 
Parameters : 

addr is block to deallocate 
Side Effects: adds addr to free list; increments PartNumFree 
Calls: AddToTail, WhichPartition, UpdatePartlnfo 
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Procedure DeallocChain(firstaddr,lastaddr : DiskAddr; numblks : integer); 

Abstract : 

Deallocates a chain of blocks 

Parameters : 

firstAddr and lastAddr are addresses of blocks to deallocate 
(inclusive) and numBlks is number of blocks to free 

Side Effects: Frees first and last addr using AddToTail; middle blocks 
not changed 

Calls: AddToTail, ChangeHeader, WhichPartition, DoubleAdd, FlushDisk, 
UpdatePartlnfo, Doubleint 

NOTE: No checking is done to see if numBlks is correct 
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module Arith; 

Needed until Pascal compiler supports type long, 
Copyright (C) 1980 Carnegie-Mellon University 
Version Number V2.2 



exports 

imports FileDefs from FileDefs; { to get FSBitnn ) 

type 
MyDouble = packed record 
case integer of 
1: 



2: 



3: 



Lsw 
Msw 



integer; 
integer 



end; 



) 



Ptr : FSBit32 



ByteO : FSBitS; 

Bytel : FSBitS; 

Byte2 : FSBitS; 

Byte3 : FSBitS 



function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 
function 



DoubleAdd(a,b : FSBit32) 
DoubleSub(a,b : FSBit32) 
DoubleNeg(a : FSBit32) 
DoubleMul(a,b : FSBit32) 
DoubleDiv(a,b : FSBit32) 
DoubleInt(a : integer) 
IntDouble(a : FSBit32) 
DoubleBetweenC a, start , stop 
DoubleMod(a,b :'FSBit32) : 
DoubleAbs(a : FSBit32) 
DblEql(a,b : FSBit32) 
DblNeq(a,b : FSBit32) 
DblLeq(a.b : FSBit32) 
DblLes(a.b : FSBit32) 
DblGeq(a,b : FSBit32) 
DblGtr(a,b : FSBit32) 



FSBit32; 

FSBit32; 

FSBit32; 

FSBit32; 

FSBit32; 

FSBit32; 

integer; 

: FSBit32) 

FSBit32; 

FSBit32; 
boolean; 
boolean; 
boolean; 
boolean; 
boolean; 
boolean; 



boolean; 
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Function DoubleAdd( a,b : FSBit32) : FSBit32; 
Abstract : 

Adds two doubles together 
Parameters : 

a and b are doubles to add 
Returns: a+b 
Function DoubleSub(a,b : FSBit32) : FSBit32; 
Abstract : 

Subtracts b from a 
Parameters : 

a and b are doubles 
Returns: a-b 
Design: a+(-b) 
Function DoubleNeg(a : FSBit32 ) : FSBit32; 
Abstract : 

Does a two-s complement negation of argument 
Parameters : 

a is number to negate 
Returns: -a 
Function DoubleAbs(a : FSBit32 ) : FSBit32; 
Abstract: 

Does an absolute value of argument 
Parameters : 

a is number to abs 
Returns : | a | 
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Function DoubleMul(a,b : FSBit32) : FSBit32; 
Abstract: 

Multiplies a and b 
Parameters : 

a and b are doubles 
Returns: aXb 
Function DoubleDiv(a.b : FSBit32) : FSBit32; 
Abstract: 

Divides a by b 
Parameters : 

a and b are doubles 
Returns: a/b 
Function DoubleMod(a,b : FSBit32) : FSBit32; 
Abstract : 

Mods a by b 
Parameters : 

a and b are doubles 
Returns: a mod b 
Function DoubleInt(a : integer) : FSBit32; 
Abstract : 

converts a into a double 
Parameters : 

a is integer 
Returns: double of a; if a is negative then does a sign extend 
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Function IntDouble(a : FSBit32 ) : integer; 
Abstract : 

returns the low word of a 
Parameters : 

a is a double 
Returns: low word 

Errors: Micro-code raises OvflLI (in Except) if a won't fit in one word 
Function DoubleBetween( a, start, stop : FSBit32) : boolean; 
Abstract : 

determines whether a is between start and stop (inclusive) 
Parameters: 

a is double to test; start is low double; stop is high 
Returns: true if a >= start and a <= stop else false 
function DblEql(a,b : FSBit32): boolean; 
Abstract : 

determines whether a = b 
Parameters : 

a and b are doubles 
Returns: true if a = b; else false 
function DblNeq(a,b : FSBit32): boolean; 
Abstract : 

determines whether a o b 
Parameters : 

a and b are doubles 
Returns: true if a o b; else false 
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function DblLeq(a,b : FSBit32) : boolean; 
Abstract : 

determines whether a <= b 
Parameters : 

a and b are doubles 
Returns: true if a <= b; else false 
function DblLes(a,b : FSBit32) : boolean; 
Abstract: 

determines whether a < b 
Parameters : 

a and b are doubles 
Returns: true if a < b; else false 
function DblGeq(a,b : FSBit32) : boolean; 
Abstract : 

determines whether a >= b 
Parameters : 

a and b are doubles 
Returns: true if a >= b; else false 
function DblGtr(a,b : FSBit32) : boolean; 
Abstract : 

determines whether a > b 
Parameters : 

a and b are doubles 
Returns: true if a > b; else false 
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module BigArea; 

Copyright C, 1982, 1983 - PERQ Systems Corporation 

Abstract : 

Provides procedures to allocate and release large segments and 
groups of segments. For contiguous areas, the mobility can also 
be set. 

Version Number V0.6 

exports 

imports Memory from Memory; 

procedure CreateBigArea (var S: SegmentNumber; TotSize, PieceSize: 

integer); 
procedure CreateContiguousArea (var S: SegmentNumber; 

TotSize: integer; Mob: SegmentMobility); 
procedure DecBigAreaRef (S: SegmentNumber; TotSize, PieceSize: integer); 
procedure DecCont i guous AreaRef ( S : SegmentNumber ; TotSi ze : i nteger ) ; 
procedure SortSegList; 
function ConsecutiveSegments(N: integer): SegmentNumber; 

exception BadMobility(M: SegmentMobility); 

Abstract : 

Raised when CreateContiguousArea is given a disallowed Mob value, 
function ConsecutiveSegments(N: integer): SegmentNumber; 

Abstract : 

Finds a block of N consecutive unallocated segment number, 
allocates them, and return the segment number of the first. 

Parameters : 

N - number of segment numbers to allocate. 

Returns: The segment number of the first of N previously unallocated 
segment numbers. 

Exceptions: 

NoFreeSegments - If no sequence of N free segment numbers can be 

found. 
BadSize - If N<1. 

Environment: Interrupts are assumed to be ON initially. They are 
turned off and then back ON. 
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Design: First calls SortSegList and then searches free list of segment 
numbers for a long enough group of segment numbers. 

procedure Great eBigArea (var S: SegmentNumber; TotSize, 
PieceSize: integer); 

Abstract : 

Creates a big area, possibly composed of multiple segments. It 
will be swappable. 

Parameters ; 

S - segment number assigned to area. If the area is more than one 
piece, consecutive segment numbers are given to the pieces. 

TotSize - total number of blocks to allocate to area. (Each block 
is 256 words.) The maximum value for TotSize is 32767, which 
corresponds to almost 16 megabytes (more than will fit in all 
but the largest swapping partition). 

PieceSize - Size (in blocks) of each segment to allocate for area. 
1 <= PieceSize <= 256. If PieceSize is less than 256, then 
swapping will be better, but addresses will not be 
contiguous. Moreover, with a small PieceSize, NoFreeSegments 
is more likely (because longer sequences of free segment 
numbers are needed). 

Recommended PieceSize: 15 blocks. 

Exceptions: 

Full Memory - There is not enough room in physical memory to 

satisfy the request. 
NoFreeSegments - Memory manager was unable to find a suitable 

sequence of consecutive segment numbers. 
BadSize - TotSize is negative or l>PieceSize or 256<PieceSize. 

Calls: 

ConsecutiveSegments, CreateSegment , MakeEdge, Re leaseSegment Number 

Environment: 

Interrupts are. assumed to be ON initially. They are turned off 
and then back ON. 

Design: First finds consecutive segment numbers for the various pieces. 
Then allocates that many segments and uses those segment numbers. 
The address of the i 'th word is makeptr (Sfi div (PieceSizel5256), 
i mod (PieceSizeX256), word), but the multiplies and divides can 
be done with shifting if PieceSize is chosen appropriately. With 
PieceSiz e=16 we have the address as makeptr (SfShift(i,-12), 
LAnd(i,#7777), word) If i is long and its pieces are i.hi and i.lo 
then we hav e ma keptr (SfShift(i.lo,-12)+Shift(i.hi,4), 
LAnd( i.lo, #7777), word). Note: CreateBigArea should eventually be 
revised to create segments in the swapped out state. Physical 
core should only be allocated when the segment is referenced. 
(Even now, disk space is only assigned when a data segment is to 
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be swapped out.) 

procedure CreateContiguousArea (var S: SegmentNumber; 
TotSize: integer; Mob: SegmentMobility); 

Abstract : 

Creates a contiguous area of physical memory. It is forced to 
remain resident because of the mobility. Use of this module 
avoids the swap-out-swap- in of using CreateSegment and 
SetMobility. 

Parameters : 

S - segment number assigned to area. If the area is more than one 

piece, consecutive segment numbers are given to the pieces. 
TotSize - total number of blocks to allocate to area. (Each block 

is 256 words.) Max is 83^256, this is one megabyte. 
Mob - Mobility for the segment. Must be UnSwappable or UnMovable. 

Except i ons : 

Full Memory - There is not enough room in physical memory to 

satisfy the request. 
NoFreeSegments - Memory manager was unable to find a suitable 

sequence of consecutive segment numbers. 
BadMobility - Mob must be UnSwappable or UnMovable. 

Environment: Interrupts are assumed to be ON initially. They are 
turned off and then back ON. 

Calls: ContiguousSegments, Compact, FindHole, NewSegmentNumber. 

procedure DecBigAreaRef (S: SegmentNumber; TotSize, PieceSize: integer); 

Abstract : 

Releases a big area allocated with CreateBigArea. 

Parameters : 

S - segment number assigned to area. If the area is more than one 

piece, consecutive segment numbers are given to the pieces. 
TotSize - total number of blocks to allocate to area. (Each block 

i s 256 words . ) 
PieceSize - Size of each segment to allocate for area. If 

PieceSize is less than 256, then swapping will be better, but 

addresses will not be contiguous. 

Exceptions: 

BadSize - if the size of a segment in the group specified by the 
above parameters is inconsistent with the size that would 
have been given by CreateBigArea. others from DecRef Count. 

Design: Simply calls DecRef Count for each segment in the group. 



- 17 - 



POS Operating System - Module BigArea January 15* 1984 

procedure DecContiguousAreaRef (S: SegmentNumber; TotSize: integer); 
Abstract : 

Releases contiguous area allocated by CreateContiguousArea. 
Parameters : 

S - segment number assigned to area. If the area is more than one 
piece, consecutive segment numbers are given to the pieces. 

TotSize - total number of blocks to allocate to area. (Each block 
i s 256 words . ) 

Environment: Interrupts are assumed to be ON initially. They are 
turned off and then back ON. 

Calls: DecBigRefArea (with PieceSize=256). 

Exceptions: see DecBigAreaRef. 

procedure Sort SegL i st ; 

Abstract : 

Sorts the list of segment numbers so it is more likely that 
consecutive segment numbers can be found. 

Design: Sorts the segment number list and reconstructs it, putting 
longest consective secuence of numbers at the end. Thus shorter 
consecutive sequecenes are used up first and longer sequences are 
saved for Great eXxxArea. 

Rather than do a sort, the groups of consecutive segment numbers 
are added to lists categorized by length. The front and rear of 
each list is in array Group Thus, for l<=i<=NumGroups-l all chains 
of length i are put in the list starting at GroupCil .Front and 
extending along its NextSeg pointers to GroupEil .rear; All groups 
of length >= NumGroups are in the list under (SroupENumGroupsl . 

After filing all sequences into Ooup, a new free list of segment 
numbers is built with the longest groups at the end. 

Environment: Interrupts are assumed to be ON initially. They are 
turned off and then back ON. 
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module Clock; 

Clock - Perq clock routines. 
J. P. Strait 1 Feb 81. 
Copyright (C) PERQ Systems Corporation, 1981. 

Abstract : 

Clock implements the Perq human-time clock. Times are represented 
internally by a TimeStamp record which has numeric fields for 
Year, Month, Day, Hour, Minute, and Second. Times may also be 
expressed by a string of the form YY MMM DD HH:MM:SS where MMM is 
a three (or more) letter month name and HH:MM:SS is time of day on 
a 24 hour clock. 

The clock module exports routines for setting and reading the 
current time as either a TimeStamp or a character string, and 
exports routines for converting between TimeStamps and strings. 

Version Number VI. 7 

exports 

imports GetTimeStamp from GetTimeStamp; 

const ClockVersion = '1.7'; 

type TimeString = String; 

procedure SetTStamp( Stamp: TimeStamp ); 

procedure SetTString( String: TimeString); 

procedure GetTString( var String: TimeString ); 

procedure StampToString( Stamp: TimeStamp; var String: TimeString ); 

procedure StringToStamp( String: TimeString; var Stamp: TimeStamp); 

Exception BadTime; 

Abstract : 

Raised when a string passed does not represent a valid time 

procedure GetPERQ2GMT(var Stamp: TimeStamp); 
procedure GetPERQ2Local(var Stamp: TimeStamp); 
procedure PutPERQ20ffset; 

exception GTSNotPERQ2; 

Abstract : 

This exception is raised if any of the XPERQ2X procedures are 
called and the current machine is not a PERQ-2. 
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exception GTSN0Z8O; 

Abstract: 

This exception is raised if GetPERQ2Gan" is called and the Z80 does 
not respond; 

const OffsetFile = '>HoldOffset.TimeStamp'; 
procedure SetTStamp( Stamp: TimeStamp ); 
Abstract : 

Sets time to be time specified by Stamp 
Parameters : 

stamp is new time 
SideEffects: Changes current time 
procedure SetTString( String: TimeString); 
Abstract: 

Sets time to be time specified by String 
Parameters : 

string is the string of the new time 
SideEffects: Changes current time 

Errors: Raises BadTime is string is invalid (malformed or illegal time) 
procedure GetTString( var String: TimeString ); 
Abstract: 

Returns the current time as a string 
Parameters : 

string is the string to be set with the current time 
procedure StampToString( Stamp: TimeStamp; var String: TimeString ); 
Abstract : 

Returns a string for the time specified by stamp 

Parameters : 

stamp is time to get string for; string is set with time 
represented by stamp 
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procedure StringToStamp( String: TimeString; var Stamp: TimeStamp ); 

Abstract : 

Converts string into a time stamp 

Parameters : 

string is the string containing time; stamp is stamp set with time 
according to string 

Errors: Raises BadTime is string is invalid (malformed or illegal time) 

procedure GetPERQ2GMT(var Stamp: TimeStamp); 

Abstract : 

This procedure is used to get the GMT time from the clock chip on 
the PERQ-2 I/O board. 

Parameters : 

Stamp is a TimeStamp that will be set to contain the current GMT 
from the PERQ-2 clock. 

Exceptions: if the current 10 board is not an EIO then raise 
GTSNotPERQ2. 

procedure GetPERQ2Local(var Stamp: TimeStamp); 

Abstract : 

Obtain the local time from the PERQ-2 clock. The local time is 
generated using the GMT provided by the hardware clock and adding 
in the time in the offset stored on disk. 

Parameters : 

Stamp will be set to be the current time stamp. If no local 
offset was found on the disk then all fileds of Stamp will be -1. 

Exceptions: if the current 10 board is not an EIO then raise 
GTSNotPERQ2. 

procedure PutPERQ20f f set ; 

Abstract : 

This procedure is used to write an offset from (MI on the disk. It 
will read the current System time and create an offset file that 
gives the offset of the current system time from the GMT returned 
by hardware clock. 
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Exceptions: if the current 10 board is not an EIO then raise 
GTSNotPERQ2. 
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mcxlule CmdParse; 

This module provides a number of routines to help with command parsing. 

Written by Don Scelza April 30, 1980 

Copyright (C) 1980 - PERQ Systems Corporation 

Version Number V3.7 

{xx%%%^9e3exxdex^^x^»e^} Exports { a^ex xxx x xxxxxx x xxxxxx } 

Const CmdPVersion = '3.5'; 
MaxCmds = 30; 
MaxCString = 255; 

CCR = Chr(13); {same as standard CR) 
CmdChar = Chr(24); 
CmdFileChar = Chr(26); 

Type CString = String[MaxCStringl; 

CmdArray = Array [1.. MaxCmds 1 Of String; 

Procedure CnvUpper(Var Str:CString); {*3ex USE ConvUpper IN PERQ_String5e5636} 
Function Un i queCmd I ndex(Cmd: CString; Var CmdTable: CmdArray; 

NumCmds : I nteger ) : I nteger ; 
Procedure RemDeli miters (Var Src: CString; Deli miters: CString; 

Var BrkChanCString); 
procedure GetSymboKVar Src, Symbol: CString; Delimiters:CString; 

Var BrkChar: est ring); 

Function NextID(var id: CString; var isSwitch: Boolean): Char; 
Function Next IDString( var s, id: CString;var isSwitch: Boolean): Char; 

Type pArgRec = ''ArgRec; 
ArgRec = RECORD 

name: CString; 
next: pArgRec; 
END; 

pSwitchRec = ^SwitchRec; 
SwitchRec = RECORD 

switch: CString; 

arg: CString; 

correspond ingArg: pArgRec; 

next: pSwitchRec; 
END; 

Function ParseCmdArgs(var inputs, outputs: pArgRec; var switches: 

pSwitchRec; var err: String): boolean; 

Function ParseStringArgs(s: CString; var inputs, outputs: pArgRec; 

var switches: pSwitchRec; var err: String): boolean; 

Procedure DstryArgRec(var a: pArgRec); 

Procedure DstrySwitchRec(var a: pSwitchRec); 

Type pCmdList = XmdListRec; 
CmdListRec = RECORD 
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cffldFiie: Text; 
isCharDevice: Boolean; 
, next: pCmdList; 
seg: Integer; 
END; 

Procedure InitCrodFileCvar InF: pCmdList; seg: Integer); 

Function DoCmdFiledine: CString; var inF: pCmdList; var err: String): 

boolean; 
Procedure ExitCrodFile(var inF: pCmdList); 
Procedure ExitAllCmdFilesCvar inF: pCmdList); 
Procedure DstryCmdFiles(var inF: pCmdList); 
Function RemoveQuotes(var s: CString): boolean; 

Type ErrorType= 

(ErBadSwitch, ErBadCmd, ErNoSwParam, ErNoCmdParam, ErSwParam, 
ErCmdParam, ErSwNotUnique, ErCmdNotUnique, ErNoOutFile, 
ErOne Input, ErOneOutput, ErFileNotFound, ErDirNotFound, 
ErIllCharAfter, ErCannotCreate, ErAnyError, ErBadQuote); 

Procedure StdError(err: ErrorType; param: CString; leaveProg: Boolean); 
Function NextString(var s, id: CString; var isSwitch: Boolean): Char; 

Procedure InitCmdFile(var inF: pCmdList; seg: Integer); 

Abstract : 

Initializes inF to a valid Text File corresponding to the 
keyboard. This must be called before any other command file 
routines. The application should then read from inF^.cmdFile. 
For example: 

ReadLnCinFile^.cmdFile, s); 
or 

while not eof(inFile^.cmdFile) do ... 

Use popup only if inF". next = NIL (means no cmd File). Is a 
fileSystem file if not inF". isCharDevice. InF will never be NIL. 
The user should not modify the pCmdList pointers; use the 
procedures provided. 

Parameters : 

InF - is set to the new command list. 

seg - the segment number to allocate the command file list out of. 
If the application doesn't care, use 0. This is useful for 
programs like the Shell that require the list of command 
files to exist even after the program terminates. For other 
applications, use 0. 
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Function DoCmdFiledine: CString; var inF: pCmdList; 
var err: String): boolean; 

Abstract : 

This procedure handles an input line that specifies that a 
command file should be invoked. The application finds a line that 
begins with an a and calls this procedure passing that line. This 
procedure maintains a stack of command files so that command files 
can contain other command files. Call InitCmdPile before this 
procedure. 

Parameters : 

line - the command line found by the application. It is OK if it 
starts with an a but it is also CftC if it doesn't. 

inP - the list of command files. This was originally created by 
InitCmdFile and maintained by these procedures. If the name 
is a valid file, a new entry is put on the front of inF 
describing it. If there is an error, then inF is not 
changed. In any case, inF will always be valid. 

err - if there is an error, then set to a string describing the 
error, complete with preceding 'XX '. If no error, then set 
to ". The application can simply do: if not DoCmdFile(s, 
inF, err) then WriteLn(err); 

Returns: True if (K, or false if error. 

Procedure ExitCmdFile(var inF: pCmdList); 

Abstract : 

Remove top command file from list. Call this whenever come to end 
of a command file. 

Parameters : 

InF - the list of command files. It must never be NIL. The top 
entry is removed from inF unless attempting to remove last command 
file, when it is simply re-initialized to be the console. It is 
OK to call this routine even when at the last entry of the list. 
Suggested use: While EOF(inF^.cmdFile) do ExitCmdFile(inF); 

Procedure ExitAllCmdFiles(var inF: pCmdList); 

Abstract : 

Remove all command file from list. Use when get an error or a 
*SHIFT-C to reset all command files. 
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Parameters : 

InF - the list of command files. It must never be NIL. All 
entries but the last are removed. 

Procedure DstryCrodFiles(var inF: pCmdList); 

Abstract : 

Removes all command files from list. 

Parameters : 

InF - the list of command files. All entries are removed and InF 
set to NIL. 

Function NextID(var id: CString; var isSwitch: Boolean): Char; 

Abstract : 

Gets the next word off UsrCmdLine and returns it. It is OK to 
call this routine when UsrCmdLine is empty (id will be empty and 
return will be CCR) This procedure also removes comments from s 
(from to end of line is ignored). This is exactly like 
NextlDString except it uses the UsrCmdLine by default. 

WARNING: Do not mix calls to NextID and RemDelimiters/GetSymbol 
since the latter 2 may change UsrCmdLine in a way that causes 
NextID to incorrectly report that an id is not a switch. This 
procedure also appends a CCR to the end of UsrCmdLine so it should 
not be printed after this procedure is called. 

Parameters : 

id - set to the next word on UsrCmdLine. If there are none, then 
id will be the empty string. 

isSwitch - tells whether the word STARTED with a slash "/". The 
slash is not returned as part of the name. 

Results: The character returned is the next ''significant*' character 

after the id. The possible choices are "=•* *','• " " "*"' CCR. CCR is 
used to mean the end of the line was hit before a significant 
character. If there are spaces after the id and then one of the 
other break characters defined above, then the break character is 
returned. If there is a simply another id and no break 
characters, then SPACE is returned. 

SideEffects: Puts a CCR at the end of UsrCmdLine so it is a bad idea to 

print UsrCmdLine after NextID is called the first time. Removes 

id and separators from front of UsrCmdLine. The final character 
is also removed. 
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Function NextIDString(var s, id: CString; var isSwitch: Boolean): Char; 

Abstract: 

Gets the next word off s and returns it. It is (K to call this 
routine when s is empty (id will be empty and return will be CCR) 
This procedure also removes comments from s (from to end of line 
is ignored). This is exactly like NextID except it allows the 
user to specify the string to parse. 

WARNING: It is a bad idea to mix calls to NextlDString and 
RemDelimiters/GetSymbol since the latter 2 may change s in a way 
that causes NextlDString to incorrectly report that an id is not a 
switch. 

Parameters : 

s - String to parse. Changed to remove id and separators from 
front. The final character is also removed. 

id - set to the next word in string. If there are none, then id 
will be the empty string. 

isSwitch - tells whether the word STARTED with a slash "/". The 
slash is not returned as part of the name. 

Results: The character returned is the next "significant" character 

after the id. The possible choices are "=" "/ ** " ""^ CCR. CCR is 
used to mean the end of the line was hit before a significant 
character. If there are spaces after the id and then one of the 
other break characters defined above, then the break character is 
returned. If there is a simply another id and no break 
characters, then SPACE is returned. 

Function NextString(var s, id: CString; var isSwitch: Boolean): char; 

Abstract: 

Gets the next word off s and returns it. It is OK to call this 
routine when s is empty (id will be empty and return will be CCR) 
This procedure also removes comments from s (from to end of line 
is ignored). The character after id is NOT removed from s. This 
is like NextlDString except the character is removed in 
NextlDString. 

Parameters : 

s - String to parse. Changed to remove id and separators from 
front. Final character is NOT removed. 

id - set to the next word in string. If there are none, then id 
will be the empty string. 

isSwitch - tells whether the word STARTED with a slash "Z". The 
slash is not returned as part of the name. 
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Results: The character returned is the next **significant*' character 
after the id. This character remains at the front of s. The 
possible choices are "=*• **,** ** " *"" CX^R. CCR is used to mean the 
end of the line was hit before a significant character. If there 
are spaces after the id and then one of the other break characters 
defined above, then the break character is returned. If there is 
a simply another id and no break characters, then SPACE is 
returned. 

Function RemoveQuotes(var s: CString): boolean; 

Abstract : 

Changes all quoted quotes (") into single quotes ('). 

Parameters : 

s - string to remove quotes from. It is changed. 

Returns: true if all ok. False if a single quote ended the string. In 
this case s still contains that quote. 

Function ParseCmdArgs(var inputs, outputs: pArgRec; var switches: 
pSwitchRec; var err: String): boolean; 

Abstract : 

Parses the command line assuming standard form. The command 
should be removed from the front using Nextid before ParseCmdArgs 
is called. 

Parameters : 

inputs - set to list describing the inputs. There will always be 
at least one input, although the name may be empty. 

outputs - set to list describing the outputs. There will always be 
at least one output, although the name may be empty. 

switches - set to the list of switches, if any. Each switch 

points to the input or output it is attached to. This may be 
NIL if the switch appears before any inputs. If a global 
switch, the application can ignore this pointer. If a switch 
is supposed to be local, the application can search for each 
input and output through the switches looking for the 
switches that correspond to this arg. Switches may be NIL if 
there are none. 

err - set to a string describing the error if there is one. This 
string can simply be printed. If no error, then set to ". 

Returns: false if there was a reported error so the cmdLine should be 
rejected. In this case, the pArgRecs should be Destroyed anyway. 
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Function ParseStringArgs(s: CString; var inputs, outputs: pArgRec; 
var switches: pSwitchRec; var err: String): boolean; 

Abstract: 

Parses the string assuming standard form. The command should be 
removed from the front using Next Id before ParseCmdArgs is called. 

Parameters : 

s - the string to parse. 

inputs - set to list describing the inputs. There will always be 
at least one input, although the name may be empty. 

outputs - set to list describing the outputs. There will always be 
at least one output, although the name may be empty. 

switches - set to the list of switches, if any. Each switch 

points to the input or output it is attached to. This may be 
NIL if the switch appears before any inputs. If a global 
switch, the application can ignore this pointer. If a switch 
is supposed to be local, the application can search for each 
input and output through the switches looking for the 
switches that correspond to this arg. Switches may be NIL if 
there are none. 

err - set to a string describing the error if there is one. This 
string can simply be printed. If no error, then set to ". 

Returns: false if there was a reported error so the string should be 
rejected. In this case, the pArgRecs should be Destroyed anyway. 

Procedure DstryArgRec(var a: pArgRec); 

Abstract : 

Deallocates the storage used by a ArgRec list. 

Parameters : 

a - the head of the list of ArgRecs to deallocate. It is set to 
NIL. OK if NIL before call. 

Procedure DstrySwitchRec(var a: pSwitchRec); 

Abstract : 

Deallocates the storage used by a SwitchRec list. 

Parameters : 

a - the head of a list of pSwitchRecs to deallocate. It is set to 
NIL. OK if NIL before call. 



- 29 - 



POS Operating System - Module CmdParse January 16, 1984 

Procedure StdErrorCerr: ErrorType; param: CString; leaveProg: Boolean); 

Abstract : 

Prints out an error message with a parameter and then optionally 
exits the user program. 

Parameters: 

err - the error type found 

leaveProg - if true then after reporting error, raises ExitProg to 

return to the shell. If false then simply returns 
param - parameter for the error. The message printed is: 

ErBadSwitch - "3He <PARAM> is an invalid switch." 
ErBadCmd - "XX <PARAM> is an invalid command.** 
ErNoSwParam - "XX Switch <PARAM> does not take any arguments." 
ErNoCmdParam - "XX Command <PARAM> doesn't take any arguments." 
ErSwParam - "XX Illegal parameter for switch <PARAM>." 
ErCmdParam - "XX Illegal parameter for command <PARAM>." 
ErSwNotUnique - "XX Switch <PARAM> is not unique." 
ErCmdNotUnique - "XX Command <PARAM> is not unique." 
ErNoOutFile - "XX <PARAM> does not have any outputs." 
ErOnelnput - "XX Only one input allowed for <PARAM>." 
ErOneOutput - "XX Only one output allowed for <PARAM>." 
ErFileNotFound - "XX File <PARAM> not found." 
ErDirNotFound - "XX Directory <PARAM> does not exist." 
ErIllCharAfter - "XX Illegal character after <PARAM>." 
ErCannotCreate - "XX Cannot create file <PARAM>." 
ErBadQuote - "XX Cannot end a line with Quote." 
ErAnyError - "<PARAM>" 

Procedure CnvUpper(Var Str: CString); 

Abstract : 

This procedure is used to convert a string to uppercase. 
Parameters : 

Str is the string that is to be converted. 

Side Effects: This procedure will change Str. XXXXWARNINGXXXX THIS 
PROCEDURE WILL SOON BE REMOVED. USED THE PROCEDURE ConvUpper IN 
PERQ.STRING 

Function Un iqueCrod I ndex(Cmd: CString; Var CmdTable: CmdArray; 
NumCmds: Integer): Integer; 

Abstract : 

Does a unique lookup in a command table. 
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Parameters : 

Cmd - the command that we are looking for. 

CmdTable - a table of the valid commands. The first valid command 

in this table must start at index 1. 
NumCmds - the number of valid command in the table. 

Results: This procedure will return the index of Cmd in CmdTable. If 
Cmd was not found then return NumCmds +1. If Cmd was not unique 
then return NumCmds+2. 

Procedure RemDelimiters(Var SrciCString; DelimitersrCString; 
Var BrkChar: est ring); 

Abstract : 

Removes delimiters from the front of a string. 

Parameters : 

Src - the string from which we are to remove the delimiters. 
Delimiters - a string that contains the characters that are to be 

considered delimiters. 
BrkChar - will hold the character that we broke on. 

Side Effects: This procedure will change both Src and BrkChar. 

Procedure GetSymboKVar Src, Symbol :CString; Delimiters:CString; 
Var BrkChar: est ring); 

Abstract : 

Removes the first symbol from the beginning of a string. 

Parameters : 

Src - the string from which we are to remove the symbol. 

Symbol - a string that is used to return the next symbol. 

Delimiters - a string that defines what characters are to be 

considered delimiters. Any character in this string will be 
used to terminate the next symbol. 

BrkChar - used, to return the character that stopped the scan. 

Side Effects: Removes the first symbol from Src and places it into 
Symbol. Places the character that terminated the scan into 
BrkChar. 
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module Code; 

Code. Pas - Common definitions for the Linker and Loader. 

J. P. Strait 10 Feb 81. Rewritten as a module. 

Copyright (C) PERQ Systems Corporation, 1981, 1983. 

Abstract : 

Code. Pas defines constants and types shared by the Linker and the 
Loader. These include definitions of the run file and of offsets 
in the stack segment. 



Design: 



When the format of run files is changed, the constant RFileFormat 
must also be changed. This is necessary to prevent the procedures 
which read run files from failing. 



exports 



imports GetTimeStamp from GetTiroeStamp; 



const 



CodeVersion = '1.14'; 
RFileFormat = 2; 
QCodeVersion = 4; 
FileLength = 100; 
SegLength = 8; 
StackLeader = 2; 



DefStackSize = #20; 
DefHeapSize = #4; 
DeflncStack = #4; 
DeflncHeap = #4; 
FudgeStack = #2000; 



CommentLen = 80; 



Current QCode Version Number } 

max chars in a file name ) 

max chars in a segment name ) 

number of leader words in stack before 

XSTs (must be even) 

Currently contains initial TP and GP 

default stack segment size (in blocks) 

default heap segment size (in blocks) } 

default stack size increment (in blocks) ) 

default heap size increment (in blocks) } 

fudge space between system and user (SDB's) 

this must hold all loader variables at } 

maximum configuration in LoadStack } 

the length of comment and version str in 

seg) 



type 



SNArray = packed array [L.SegLengthl of Char; { segment name ) 

pFNString = ^FNString; 

FNString = StringlFileLength] ; { file name } 

QVerRange = 0..^; { range of QCode version numbers } 



SegHint = record case Integer of 

1: (Fid : Integer; 

Update: TimeStamp); 

2: (Wordl : Integer; 

Word2 : Integer; 

Word3 : Integer) 
end; 



( file id ) 
{ update time ) 
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pSegNode = 
pImpNode = 



'SegNode; 
'ImpNode; 



{ Segment information record: ) 



SegNode = record 
Segid 
RootNam 
Hint 
GDBSize 
XSrSize 
GDBOff 
ISN 

CodeSize 
SSN 

UsageCnt 
ImpList 
Next 
end; 



SNArray; 

pFNString; 

SegHint; 

integer; 

integer; 

integer; 

integer; 

integer; 

integer; 

integer; 

pImpNode; 

pSegNode 



segment name ) 

file name without .Pas or .Seg) 
hint to the segment file ) 
size of this segment's GDB } 
size of this segment's XST } 
StackBase offset to GDB ) 
segment number inside Linker ) 
number of blocks in .Seg file } 



{ Import information record ) 



ImpNode = record 
Sid 
FilN 
XGP 
XSN 
Seg 
Next 
end; 



SNArray; 

pFNString; 

integer; 

integer; 

pSegNode; 

pImpNode 



( name of imported segment } 

{ file name of imported segment ) 

{ global pointer of import } 

{ internal number of import } 



{ Run file: } 



RunElement 
Run Info = 



= (RunHeader,SysSegment,UserSegment, Import ,SegFi leNames ) ; 



record { run header 
RF i 1 eFormat : i nt eger ; 



} 



Version: 

System: 

InitialGP: 

CurOffset: 

StackSize: 

Stacklncr: 

HeapSize: 

Heaplncr: 

ProgramSN: 

SegCount: 

end; 



integer; 
boolean; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer; 
integer 



RunFileType = file of Integer; 

{ Segment file: } 

Language = (Pascal, Fortran, Imp); 
pSegBlock = "SegBlock; 

SegBlock = packed record case integer of { .SEG file definition } 
{ zeroth (header) block: } 
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: ( ProgramSegment 
Longlds 
DbglnfoExists 
OptimizedCode 
SegBlkFiller 
QVersion 
ModuleName 
FileName 
NumSeg 
IfflportBlock 
GDBSize 
Version 
Comment 
Source 

PreLinkBlock 
RoutDescBlock 
DiagBlock 
QMapFileNanie 
SymFi leName 
Compid 



boolean; 

boolean; 

boolean; 

boolean; 

0..15; 

QVerRange; 

SNArray; 

FNString; 

integer; 

integer; 

integer; 

String [CommentLenl ; 

StringlCommentLen] ; 

Language; 

integer; 

integer; 

integer; 

FNString; 

FNString; 

TimeStamp); 



( first block: ) 
1: (OffsetRD : integer; 
RoutsThisSeg : integer); 
2: (Block: array[0..255] of integer) 
end; 

CImpInfo = record case boolean of { Import List Info - as } 

{ generated by the compiler } 
true: ( ModuleName: SNArray; { module identifier} 
FileName: FNString ( file name ) 

); 
false :( Ary: array [0..0] of integer) 
end; 

SegFileType = file of SegBlock; 
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module ComplexFunctions; 

J. B. Brodie 1 Mar 82 

Copyright (C) PERQ Systems Corporation 1982. 

Abstract : 

ComplexFunctions implements many of the standard functions whose 
domain and/or range is within the Complex number system. The 
implementation of these functions utilize mathematical identies 
for the relationships between the real number system and the 
complex number system. 

DISCLAIMER: Since Math identities are utilized to evaluate these 
functions, accuracy and execution speed may be very poor. Only 
the most cursory testing of these functions has been performed. 
No guarantees are made as to the accuracy or correctness of the 
functions. Validation of the functions must be done, but at some 
later date. 

Version Number Vl.l 

exports 

type 

Complex = record 
Re : Real; 
Im : Real; 
end; 



function 
function 
function 
function 
function 
function 
function 
function 



CMult 

CExp 

CCos 

CSin 

CLn 

CSqrt 

CPowerC 

CPowerR 



( Zl ,Z2:Complex ) 



Z: Complex 
Z: Complex 
Z: Complex 
Z: Complex 
Z: Complex 



Zl,Z2:Complex ) : 
Z:Complex; X:Real ) 



Complex; 
Complex; 
Complex; 
Complex; 
Complex; 
Complex; 
Complex; 
Complex; 



exception CExpReLarge ( Z: Complex ); 
Abstract: 



CExpReLarge is raised when CExp is called with a complex number 
whose real number component (e.g. Z.Re) would cause a result which 
is too large to be represented on the Perq. 

Parameters : 



Z ~ Argument of CExp 
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exception CExpReSmall ( Z .'Complex ); 
Abstract : 

CExpReSmall is raised when CExp is called with a complex number 
whose real number component (e.g. Z.Re) would cause a result which 
is too small to be represented on the Perq. 

Parameters : 

Z — Argument of CExp 

exception CExpImLarge ( ZrComplex ); 

Abstract : 

CExpImLarge is raised when CExp is called with a complex number 
whose imaginary number component (e.g. Z.Im) would cause a result 
which is too large to be represented on the Perq. 

Parameters : 

Z ~ Argument of CExp 

exception CExpImSmall ( Z:Complex ); 

Abstract: 

CExpImSmall is raised when CExp is called with a complex number 
whose imaginary number component (e.g. Z.Im) would cause a result 
which is too small to be represented on the Perq. 

Parameters : 

Z ~ Argument of CExp 

exception CCosReLarge ( Z: Complex ); 

Abstract : 

CCosReLarge is raised when (Xos is called with a complex number 
whose real number component (e.g. Z.Re) would cause a result which 
is too large to be represented on the Perq. 

Parameters: 

Z ~ Argument of CCos 



- 36 - 



POS operating System - Module CompiexFunctions January 16, 1984 

exception CCosImLarge ( Z: Complex ); 
Abstract : 

CCosImLarge is raised when CCos is called with a complex number 
whose imaginary number component (e.g. Z.Im) would cause a result 
which is too large to be represented on the Perq. 

Parameters : 

Z ~ Argument of CCos 

exception CSinReLarge ( ZrComplex ); 

Abstract : 

CSinReLarge is raised when CSin is called with a complex number 
whose real number component (e.g. Z.Re) would cause a result which 
is too large to be represented on the Perq. 

Parameters : 

Z — Argument of CSin 

exception CSinlmLarge ( ZrComplex ); 

Abstract : 

CSinlmLarge is raised when CSin is called with a complex number 
whose imaginary number component (e.g. Z.Im) would cause a result 
which is too large to be represented on the Perq. 

Parameters : 

Z — Argument of CSin 

exception CLnSmall ( ZrComplex ); 

Abstract r 

CLnSmall is raised when CLn is called with a complex number which 
would cause a result which is too small to be represented on the 
Perq. 

Parameters r 

Z ~ Argument of CLn 
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exception CPowerZero C Z1,Z2: Complex ); 
Abstract: 

CPowerZero is raised when either CPowerC or CPowerR is called with 
a zero exponent. 

Parameters : 

Zl, Z2 — Arguments to CPowerC or CPowerR 
function CMult ( Zl ,Z2iComplex ) : Complex; 
Abstract: 

Evaluates the vector cross product of two complex numbers 
Parameters : 

Zl, Z2 — Complex numbers to be multiplied 
Returns: Complex cross product 
function CExp ( Z: Complex ) : Complex; 
Abstract : 

Compute exponential function of a complex number 

Note: the use of standard type-real functions in order to evaluate 
this function may artificially constrain this functions Domain. 

Domain: Real=[-85.0,87.01 Imaginary=[-1E5,1E51 
Range: Real=Imaginary=[RealMLargest,RealPLargestl 

Parameters : 

Z -- Input argument 
Returns: Exponential of Z 
function CCos ( Z: Complex ) : Complex; 
Abstract : 

Compute the complex Cosine function. 

Note: the use of standard type-real functions in order to evaluate 
this function may artificially constrain this functions Domain. 

Domain: Real=[-1E5,1E5] Imaginary=[-85.0,87.0] 
Range: Real=Imaginary=[RealMLargest,RealPLargest] 
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Parameters : 

Z — Input argument 
Returns: Cosine of Z 
function CSin ( Z: Complex ) : Complex; 
Abstract : 

Compute the complex Sine function. 

Note: the use of standard type-real functions in order to evaluate 
this function may artificially constrain this functions Domain. 

Domain: Real=[-1E5,1E5] Imaginary=[-85.0.87.01 break Range: 
Real=Imaginary=[RealMLargest,RealPLargestl 

Parameters : 

Z ~ Input argument 
Returns: Sine of Z 
function CLn ( Z: Complex ) : Complex; 
Abstract : 

Compute natural logarithm of a complex number 

Note: the use of standard type-real functions in order to evaluate 
this function may artificially constrain this functions Domain. 

Domain: Real=lmaginary=[-1E19,1E191 

Range: Real=[RealMLargest,RealPLargest] Imaginary=[-Pi,Pi] 

Parameters : 

Z — Input argument 
Returns: Natural log of Z 
function CSqrt ( Z: Complex ) : Complex; 
Abstract : 

Compute square root of a complex number 

Note: the use of standard type-real functions in order to evaluate 
this function may artificially constrain this functions Domain. 

Domain: Real=lmaginary=[-1E19,1E191 
Range: Real=lmaginary=[-1E19,1E191 
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Parameters: 

Z ~ Input argument 
Returns: Square root of Z 
function CPowerC ( Zl ,Z2: Complex ) : Complex; 
Abstract : 

Raise an arbitrary complex number to an arbitrary complex power. 

Note: the use of standard type-real functions in order to evaluate 
this function may artificially constrain this functions Domain. 

Domain: Real=lmaginary=[-1E19,1E191 

Range: Real=[RealMLargest,RealPLargest] Imaginary=[-Pi,Pi] 

Parameters : 

Zl ~ Input complex base, Z2 ~ Input complex exponent 
Returns: Zl raised to the Z2 power 
function CPowerR ( Z:Complex; X:Real ) : Complex; 
Abstract: 

Raise an arbitrary complex number to an arbitrary real power. 

Note: the use of standard type-real functions in order to evaluate 
this function may artificially constrain this functions Domain. 

Domain: Real=lmaginary=l-1E19,1E19] 

Range: Real=[RealMLargest,RealPLargest] Imaginary=I-Pi,Pi] 

Parameters : 

Z — Input complex base, X ~ Input real exponent 

Returns: Zl raised to the X power 
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module Configuration; 
Abstract : 



Configuration exports a series of functions and variables which 
provide configuration information to POS system and application 
software. 

AUTHOR: C. Beckett 
Version Number V0.6 

{ »»»»»»»»»» } EXPORTS 
Type 

Cf MonitorType = (Cf Landscape, Cf Portrait); 
CfJOBoardType = (CflCIO, Cf_EIO);" 

var 

Cf_KeyPad: boolean; 

{If true, the keyboard attached to the Perq has an auxiliary } 
{ keypad. ) 

Cf _KeyboardSty 1 e : i nt eger ; 

{ A number which indicates the style of keyboard attached to } 
{ the Perq. 
{ This number is: 

{ 0: If the keyboard is the original one manufactured by PERQ. 
{ 1: If the keyboard is the VTlOO-compatable keyboard 
{ introduced with the Perq Kl (*'Kristmas**) model in 
Jan. 1983.} 

Cf_RS232Ports: integer; 

{ Holds the number of usable RS232 ports attached to the Perq. } 

Cf_RS232MaxSpeed: integer; 

{ Holds an integer which corresponds to the maximum baud rate 
{ supported by the the Perq. This number is coded to conform to 
{ the format defined in the system module IO__Unit. } 

Cf __Mon i t or : Cf _Mon i torType ; 

{If Cf_Monitor, the Perq has a landscape monitor with 1024 X 1280 
{ resolution. If Cf Portrait, the Perq has a monitor with 
{ 1024 X 768 resolution. ) 

Cf_WCSSize: integer; 

{ Code for the number of K words of the writeable control store. 
{ = 4Kwcs, 1 = 16KWCS. ) 

Cf _F1 oat i ngHardware : bool ean ; 

{ If true, the Perq has an Intel 8087 floating point chip. ) 

Cf_BootUnit: integer; 

{ A number which indicates the logical unit number of the disk } 
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{ drive attached to the Perq from which the system was booted. } 
{ = Harddisk, 1 = floppy. ) 

Cf BootChar: char; 

( A letter which indicates the identification of the particular ) 
{ system (WCS and main memory contents) loaded as part of boot. } 

Cf lOBoard: Cf.IOBoardType; 

{ Indicates the type of 10 board attached to the Perq. } 

{ This is: 

{ 

{ Cf CIO: If the 10 board is the 'Current' board for the original 

{ " Perq.( 'CIO board') 

{ 

{ Cf EIO: If the 10 board is the Ethernet 10 board introduced 

{ " with the Perq Kl ("Kristmas**) model in Jan. 1983. 

( CEIO board' } 

function Cf_Init: boolean; 

{ Called by IO_Init. Performs initialization 

logic. } 
{ Should not be called by applications. ) 
{ Returns true unless fatal errors were } 
{ detected. ) 

function Cf^Init: boolean; 

Abstract : 

Called by system before IO_Init is called. Performs initialization 
logic. Should not be called by applications. Returns true unless 
fatal errors were detected. 
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module ControlStore; 

ControlStore - Load and call routines in the PERQ control -store. 

J. P. Strait ca. July 80. 

Copyright (C) PERQ Systems Corporation, 1981, 1983. 

Abstract : 

The ControlStore module exports types defining the format of PERQ 
micro- instruct ions and procedures to load and call routines in the 
control -store. 

Version Number VI. 3 

exports 

type Microinstruction = { The format of a micro- instruct ion as produced by 

the micro-assembler. } 
packed record case integer of 
0: (Wordl: integer; 
Word2: integer; 
Word3: integer); 
1: (Jmp: 0..15; 
Cnd: 0..16; 
Z: 0..255; 
SF: 0..16; 
F: 0..3; 
ALU: 0..15; 



H: 


0..1; 


W: 


0..1; 


B: 


0..1; 


A: 


0..7; 


Y: 


0..255; 


X: 


0..255); 


2: (JmpCnd: 0..265; 


Filll: 0..256; 


SFF: 


0..63; 


ALUO 


: 0..1; 


ALUl 


: 0..1: 


ALU23: 0..3) 


end; 





MicroBinary = { The format of a micro- instruct ion and its address as 
produced by the micro-assembler. } 
record 
Adrs: integer; 
MI: Microinstruction 
end; 

TransMicro = { The format of a micro- instruct ion as needed by the WCS 
QCode. } 
packed record case integer of 
0: (Wordl: integer; 
Word2: integer; 
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Word3: integer); 

1: (ALU23: 0..3; 

ALUO: 0..1 

W: 0..1 

ALUl: 0..1 

A: 0..7; 

Z: 0..255; 

SFF: 0..63; 

H: 0..1; 

B: 0..1; 

JmpCnd:0..255) 
end; 

MicroFile = file of MicroBinary; { A file of micro- instruct ions. } 

procedure LoadControl Store ( var F: MicroFile ); 

procedure LoadMicroInstruction( Adrs: integer; MI: Microinstruction ); 

procedure JumpControlStore( Adrs: integer ); 

exception WCSSizeError; 

Abstract : 

A WCS operation with address greater than 4K was attempted on a 
system running with only 4K writable control store. 

9BexaexWARNlNG x^»e)BHe 

This exception is raised by PASCAL so users using InLineByte do 
not enjoy this protection. 

Resume: 

Allowed. The address gets truncated to 12 bits. 

procedure LoadControl Store ( var F: MicroFile ); 

Abstract : 



Loads the contents of a MicroFile into the PERQ control -store. The 
file whould be opened (with Reset) before calling 
LoadControl Store. It is read to EOF but not closed; thus it should 
be closed after calling LoadControl Store. 

Parameters : 

F - The MicroFile that contains the micro- instruct ions to be 
loaded. 
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procedure LoadMicroInstruction( Adrs: integer; MI: Microinstruction ); 

Abstract: 

Loads a single micro- instruct ion into the PERQ control -store. 

Parameters : 

Adrs - The control store address to be loaded. 
MI - The micro- instruct ion to be loaded. 

procedure JumpControl Store ( Adrs: integer ); 

Abstract : 



Transfers control of the PERQ micro engine to a particular address 
in the control -store. 

Note 1: Values may not be loaded onto the expression stack before 
calling JumpControl Store. If you wish to pass values through the 
expression stack, the following code whould be used rather than 
cal 1 i ng LoadControl Store . 

LoadExpr( LOr( Shi ft (Adrs, 8), Shift(Adrs,-8) ) ); InLineByteC #277 
); the JCS QCode X) 

Note 2: Microcode called by JumpControl Store should terminate with 
a "Next Inst (O)" microcode jump instruction. 

Parameters : 

Adrs - The address to jump to. 
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module Convert; 

Convert - Conversion functions for reals and longs. 

Michael R. Kristofic 25 Feb 82. 

Copyright (C) PERQ Systems Corporation, 1981. 

Abstract : 

Functions for converting between floating point and double 
precision integers are provided. 

Version Number Vl.O 

exports 

function FloatLong(Arg : Long) : Real; 
function TruncLong(Arg : Real) : Long; 
function RoundLong(Arg : Real) : Long; 

exception R2L0vrFlow(Arg : Real); 

Abstract : 

R2L0vrFlow is raised when RoundLong or TruncLong is called with 
Arg exceeding the range for Longs (-2147483648 .. +2147483647). 
You may resume from this exception in which case RoundLong or 
TruncLong returns -2147483648 or +2147483647. 

Parameters : 

Arg - Argument of RoundLong or TruncLong. 

function FloatLong(Arg : Long) : Real; 

Abstract: 

Convert a double precision integer to floating point. 

Domain = [-2147483648, +21474836471. 
Range = [-2147483648.0, +2147483648.01. 

Parameters : 

Arg - Input value. 

Returns: Floating point equivalent of Arg. 

Design: Zero and -2147483648 are special cased. Other numbers are 
handled by an algorithm that shifts Arg until it falls into the 
floating point mantissa pattern then sets the exponent based on 
the number and direction of shifts. Floating point negative 
numbers are not 2's complement, so if Arg is negative its 2's 
complement is converted and the result is negated. NOTE: Floating 
point representation can only handle 24 of the possible 31 bits of 
mantissa information, i.e. accuracy is lost for large numbers. 
Rounding occurs in these cases. 
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function TruncLongCArg : Real) : Long; 

Abstract: 

Compute the double precision integer equivalent of a floating 
point number. The fraction part is truncated. 

Domain = [-2147483648.0. +2147483520.01. 
Range = [-2147483648. +21474835201. 

Parameters : 

Arg - Input value. 

Returns: Double precision integer equivalent of Arg, fraction 
truncated. 

function RoundLong(Arg : Real) : Long; 

Abstract: 

Compute the double precision integer equivalent of a floating 
point number. The fraction part is rounded. 

Domain = [-2147483648.0. +2147483520.01. 
Range = [-2147483648. +21474835201. 

Parameters : 

Arg - Input value. 

Returns: Double precision integer equivalent of Arg, fraction rounded. 
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mcdule DiskDef; 



{ . „ 

{ 

{ DiskDef - TV. ( Tony Vezza ) 

( 

{ Copyright (C) 1982, 1983 PERQ Systems Corporation 

{ 

{ Abstract: 

{ DiskDef exports variables, constants and Types to the 

{ rest of the Pascal Disk Subsystem. Defines the control 

{ structures for CIO and EIO disks. Contains a description 

{ of the EIO disk uCode to Pascal interface. 



— } 



{fVersion VI. 6 for POS} 



S9BHe^3Be%XXXXX} Exports { XXXXXXXXXXXXXXXXXXXXXXXXXXXXX ) 



Imports IO_Unit From IO_Unit; 

Imports VoIumeSystem From VolumeSystem; 

Imports DisklO From DisklO; 



Const 

DIBAddress = 0; 

WpDB = 256; 

WpFS = 64; 

FSpDB = WpDB Div WpFS; 

FSpT = 24; 

FFS = 3; 

FIdS = 1; 

FHpS = WpFS Div 8; 

DBpFT = FSpT Div FSpDB; 

FirstFC = 6; 

FirstDB = 30; 



Const 
DskBlockSize = 512; 
DskSPC = 30; 
DskHds = 8; 
DskExHds = 0; 
DskCyls = 202; 



{ Shuggart 

{ Shuggart 

{ Shuggart 

{ Shuggart 



Address Of Disk Information Block. } 
Words Per Disk Block. } 
Words Per Floppy Sector. ) 
Floppy Sectors Per Disk Block. } 
Floppy Sectors Per Track. ) 
Floppy First Sector. ) 

Word Size ( DiskHeader) ) 
Floppy Headers Per Sector. } 
Disk Blocks Per Floppy Track. } 

First Floppy Cylinder ) 

Shuggart - First Disk Block, Length 
of Boot Rounded to Track Boundary. ) 



Sectors per cylinder } 
Max number of disk heads ) 
Extra heads not in use ) 
Number of cylinders ) 
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Type 

Disk Types and Disk Unit Number 

Four Bits are used to designate the Disk Drive type to the 
uCode and the DisklO Pascal code. The bits are interpreted 
in the following manner. Note S3ifD is not yet defined. Also 
note the number of spare encodings. 



DiskType Code 


Designated Drive Type 


\\\\\\\\\\\\\ 


\\\\\\\\\\\\\\\\\\\\\ 





Reserved 


1 


6.25 Inch Drive 


2 


14 Inch Drive 


3 


8 Inch Drive 


4. .15 


Reserved 



Legal Unit Numbers to the uCode are 4 bit quantities. This 
allows selection of sixteen drives ( Units thru 15). 

{ Define The HardDisk Types } 

DiskType = ( DSInch, DUnused, D14Inch, D8Inch, 

DSMD, DFloppy, DCIOShugart, DCIOMicropolis, 

RsvdOT, RsvdOe, Rsvd05, Rsvd04, 

Rsvd03, Rsvd02. RsvdOl, RsvdOO ); 



{ Define Unit Number ) 
UnitNumber = 0..15; 



Disk Address Formats 

There are several Disk Address Formats which are used to access 
data on the Disks. These are: 

VolBlockNumber 
PhyVol Address 
LogAddress 
OnVol Address 

Each of these is a Long which can be used to Identify a unique 
block of data on the Disk. Mechanisms (routines) are provided 
for converting one format address to another format address. 
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This following table lists relevant Physical Disk Data: 



PlatterSize DriveType Capacity #Cylinders #Heads #Sectors 
+\\\\\\\\\\\\+\\\\\\\\\\\\+\\\\\\\\\+\\\\\\\\\\+\\\\\\+\\\\\\\\+ 
I SMD I CDC 9766 I 300MB | 823 j 19 ! 32 | 
+\\\\\\\\\\\\+\\\\\\\\\\\\+\\\\\\\\\+\\\\\\\\\\+\\\\\\+\\\\\\\\+ 
I SMD I CDC 9767 | 150MB | 411 | 19 | 32 | 
+\\\\\\\\\\\\+\\\\\\\\\\\\+\\\\\\\\\+\\\\\\\\\\+\\\\\\+\\\\\\\\+ 
I 8 Inch |Micropolis21| 21MB | 580 | 3 | 24 i 
+\\\\\\\\\\\\+\\\\\\\\\\\\+\\\\\\\\\+\\\\\\\\\\+\\\\\\+\\\\\\\\+ 
I 8 Inch |Micropolis35| 35MB j 680 I 5 | 24 | 
+\\\\\\\\\\\\+\\\\\\\\\\\\+\\\\\\\\\+\\\\\\\\\\+\\\\\\+\\\\\\\\+ 
I 8 Inch jMicropolis70! 70MB | 1160 j 5 | 24 | 
A\\\\\\\\\\\+\\\\\\\\\\\\+\\\\\\\\\+\\\\\\\\\\A\\\\\+\\\\\\\\+ 
I 14 Inch i SA4000 | 12MB | 202 j 4 | 30 | 
+\\\\\\\\\\\\+\\\\\\\\\\\\+\\\\\\\\\+\\\\\\\\\\+\\\\\\+\\\\\\\\+ 
i 14 Inch I SA4002 | 24MB | 202 | 8 | 30 | 
+\\\\\\\\\\\\+\\\\\\\\\\\\+\\\\\\\\\+\\\\\\\\\\+\\\\\\+\\\\\\\\+ 
I 5.25 Inch | Ampex | 20MB j 320 | 8 | 16 | 
+\\\\\\\\\\\\+\\\\\\\\\\\\+\\\\\\\\\+\\\\\\\\\\+\\\\\\+\\\\\\\\+ 



Here: 



#Sectors = Number of Sectors Per Head (or Track) 
#Heads = Number of Heads Per Cylinder 
#Cylinders = Number of Cylinders Per Drive 



Note that Head(s) is synonomous with Track(s), 
VolBlockNumber 

wwwwwww 

Description 

In this form a Disk appears to the File System as a 

linear one dimensional array of Blocks enumerated from 

to the maximim number of blocks on the Disk. 

The VolBlockNumber is actually a 19 bit quantity which 

can be calculated from the PhyVolAddress using 

the information in the table above: 

VolBlockNumber = Cylinder ac ( #Heads « #Sectors ) 

+ Head X #Sectors 
+ Sector 
- BootSize 



Here Cylinder, Head and Sector are components 

of the PhysicalDiskAddress. #Heads and #Sectors are 

Disk parameters taken from the above table. 



Use 



All File System transactions to and from a disk use 
a VolBlockNumber to identify to/from which disk block 
the transaction will be made. 
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PhyVol Address 

\\\\\\\\\\\\\ 
Description 
This is a Double with a Word Cylinder Address, 
a Byte Head (or Track) Address and a Byte Sector Address. 
A Physical Volume Address can be calculated from a 
Volume Block Number using the Data in the above table: 

Cyl = (VolBlockNumber+BootSize) Div (#HeadsX#Sectors) 

Hd = ((VolBlockNumber+BootSize) Mod (#Heads3e#Sectors)) 

Div #Sectors 

Set = (VolBlockNumber+BootSize) Mod #Sectors 

Here again. Cylinder, Head and Sector are components 
of the PhysicalVolAddress. #Heads and #Sectors are 
Disk parameters taken from the above table. 
The operation ( A Div B ) means the Truncated Integer 
Quotient of A divided by B. The operation ( A Mod B ) 
means the Remainder of A divided by B. 

For DFloppy: 

PhyDskAdrEOl = Set 
PhyDskAdrtll = Cyl 

For DCIOShugart: 

PhyDskAdrEOl = CylX(2"8) + HdX(2"6) + Set 
PhyDskAdrtn = 

For DSInch, DSInch and DHInch: 

PhyDskAdrtOl = HdX(2"8) + Set 
PhyDskAdrtl) = Cyl 

Use 
The Physical Volume Address is the format used to tell 
the uCode which disk address the read, write or seek 
transaction will involve. 

LogAddress 

wwwww 

Description 
The LogAddress is a repackaged form of the 
VolAddress. Packaged in the following way: 

LogAddress = ( VolID X 2"27 ) + ( VolBlockNumber X 2*8 ) 

OnVol Address 

wwwwww 

Description 
The OnVol Address is a repackage form of the 
VolAddress. Packaged in the following way: 

OnVol Address = 2"31 + 2"30 + ( VolID X 2"27 ) 

+ ( BlockNumber X 2"8 ) 
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Use 
The OnVolAddress is used as Hints. 

LogAddress = Long; 
PhyVol Address = Double; 

State Machine Status Bits 

Definition of the Status Bits (taken from Hardware 
Specification): 



<2:0> 


SMSt 


Status: 





DIdle 


State Machine Is Idle. 


1 


DBusy 


State Machine Is Busy. 


2 


DataCRC 


CRC Error in Data. 


3 


PHMismatch 


Physical Header Mismatch. 


4 


LHMi smatch 


Logical Header Mismatch. 


6 


HeadCRC 


CRC Error in Logical or 
Physical Header. 
For Others - Not Used. 


<3> 


SMInt 


When Set Bits<2:0> Have Meanin 



<4> NotTrkOorNotSker For 9iugart or 6.25 inch. 

Used to Find 
Track For Calibration 
Of Seeking Algorithm, 
For Others Indicates an 
Error While Trying to do 
a Seek Operation. 

<5> NotFault When Clear This Bit Indicates 

a Drive Problem. Causes are 
Specific to each Drive Type. 

<6> NotOnCyl Indicates That a Seek is still 

in Progress or That the 
Mechanism has not yet come 
To Rest. 

<7> NotUnitReady When This Bit indicates that 

The Selected Drive is 
Present and Ready to be used. 

<8> Index This Bit Will Toggle (from 1 to 

or from to 1) For Every 
Revolution of the Disk. Can 
Be Useful During Formatting. 
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<10:9> DiskTypeCode 
1 

2 
3 

<15:11> Unused 



Drive Type Identification 
Undefined 
5.25 Inch Drive 
14 Inch Drive 
8 Inch Drive 



{ ////////////////////////////////////////////////////////////) 



SMStatus = Packed Record 
SMSt 



SMInt 

NotTrkOorNotSker 

NotFault 

NotOnCyl 

NotUnltReady 

IndexMark 

DkType 



End; 



Unused 



( DIdle, 

DBusy, 

DataCRC, 

PHMismatch, 

LHMismatch, 

HeadCRC, 

AbnormalError, 

SMError ); 
Boolean; 
Boolean; 
Boolean; 
Boolean; 
Boolean; 
Boolean; 
( Dk5Inch, 

DkUnused, 

Dkl4Inch, 

Dk8Inch ); 
0..31 



{ 000007 Bits<2:0> ) 



000010 Bit<3> 
000020 Bit<4> 
000040 Bit<5> 
000100 Bit<6> 
000200 Bit<7> 
000400 Bit<8> 



{ 003000 Bits<10:9> ) 



{ 174000 Bits<15:ll> } 



Disk Control Block 

This Data Structure is the Primary Mechanism for communication 
between the Di sklO. Pascal System and the Disk Perq uCode. 

The Structure is created for a particular Drive when that 
Drive is mounted. 

The Size of a DCB is 24 Bytes, or 12 Words, or 6 Long Words, 
or 3 Quad Words. A DCB will be Quad aligned in memory to 
facilitate access to it by uCode. 

Components of the DCB are: 

LastHead <16> Bits 

wwww 

Description 

Indicates the current Selection of the Heads. 
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Written By 

UCode which Executes the Seek Command and the uCode 
which executes any implicit seeks needed by any of the 
other Commands. 

Read By 

UCode which Executes the Seek Command and the uCode 
which executes any implicit seeks needed by any of the 
other Commands. 

LastCylinder <16> Bits 

wwwwww 

Description 

Indicates the current position of the Heads. 
Written By 

UCode which Executes the Seek Command and the uCode 

which executes any implicit seeks needed by any of the 

other Commands. 
Read By 

UCode which Executes the Seek Command and the uCode 

which executes any implicit seeks needed by any of the 

other Commands. 

DummyDCBStatus <8> Bits 

wwwwwww 

Description 

UnUsed Dummy Field. 

TypeDrive <4> Bits 
\\\\\\\\\ 
Description 

Indicates physical drive type. 
Written By 

DisklO Pascal Code at Mount time. 
Read By 

UCode uses this data in selecting the correct drive 
and in formatting the disk address. 

UnitNumber <4> Bits 

wwwww 

Description 

Selected Drive for this command. 0..15 are legal. 
Written By 

By microcode only to Mount Boot Disk. 

By DisklO Pascal Code whenever a command is issued 

to the uCode. 
Read By 

uCode to select Drive. 

Command <8> Bits, Upper <5> Bits Are 
\\\\\\\ 

Description 

Command to the uCode. (See Command Descriptions above) ^ 
Written By 

Pascal DisklO Routine every time a transaction is 

performed with the Disk uCode. 
Read By 
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UCcxie uses this field to determine what to do. 

SectorCount <8> Bits 
\\\\\\\\\\\ 

Description 

On WriteChecks this is the number of sectors to write. 
On Reads this is the number of sectors to read. For 
WriteFormat this is the number of Sectors to Format, 
should be the number of Sectors on a whole Track?! 

Written By 

DisklO Pascal Code. 

Read By 

UCode which executes the Read and WriteFormat Commands. 

Physical Address <32> Bits 
\\\\\\\\\\\\\\\ 
Description 

Disk address used by the uCode for any read write or 
seek operation. 
Written By 

DisklO Pascal Code. 
Read By 

uCode to perform the Disk Seek and Access. 

HeaderBufferPo inter <32> Bits 
\\\\\\\\\\\\\\\\\\\ 

Description 

Pointer to the memory buffer containing the Logical 
Header for all compare and write Logical Header 
operations. For reads this points to the buffer for 
storing the Logical Header of the Sector being 
read. Used to p)erform the DMA. 

Written By 

Pointer is set up by DisklO Pascal Code. 

Read By 

uCode which performs the compare, write Logical 
Header or read Logical Header operation. 

DataBufferPo inter <32> Bits 
\\\\\\\\\\\\\\\\\ 
Description 

Pointer to the Memory Buffer for the Disk Data Transfer. 
Used to perform the DMA. 
Written By 

Pointer is set up by DisklO Pascal Code. 
Read By 

uCode which initiates the Disk Data transfer. 

DskStatus <8> Bits 
\\\\\\\\\ 

Description 

Indicates the status of the DiskControllerStateMachine. 
Written By 

Disk uCode. 
Read By 

DisklO Pascal code after all transactions with uCode. 
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Phys Parameters <48> Bits 

wwwwwww 

Description 

Indicates the maximum legal Cylinder, Head and Sector 

addresses (plus 1) for this drive. 

BootSize indicates what number of sectors to skip 

over at Cyl=0, Head=0 and Sector=0 before allocating 

Logical Blocks. This space is reserved for the Boot 

code. 
Written By 

Pascal Mount Procedure. 
Read By 

Pascal and uCode, to fonnat and translate addresses. 

Volume Name <72> Bits 
\\\\\\\\\\\ 
Description 

Name of the Disk Volume as it appears in the DIB, 
of the Disk. Note the DIB is written by the 
Partition Program when the disk is initialized. 
Written By 

The Mount procedure which will read the DIB and enter 
the DIB.VolName into the DCB. 
Read By 

The procedures: VolIDLookUp and VolNameLookUp. 
They are used by the file system to access 
the Disks. 

Dummy <8> Bits 
\\\\\ 

Description 

Unllsed Dummy Field. 

DCBStatus <8> Bits 
\\\\\\\\\ 

Description 

Status of this entry in DiskControlArray. 
Written By 

DisklO Initialization code, and Mount and Dismount 

Pascal Procedures. 
Read By 

Mount and Dismount Pascal Procedures. 

PrecompCyl <16> Bits 
Description 

Cylinder inside of which writes must be precompensated 

for greater bit densities (6.25 inch disk). 
Written By 

Disk Mount code when determining disk type. 
Read By 

Disk 10 Microcode 

DStatus = Packed Record 
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End; 



Ready 


; Boolean; 


Free 


: Boolean; 


Mounted 


; Boolean; 


BootDevice 


; Boolean; 


InProgress 


; Boolean; 


Rsvdl 


: 0..7 



{ Currently UnUsed ) 



{ Currently UnUsed ) 
{ Currently UnUsed ) 
{ To Fill Out Byte ) 



EIODskCtrlBlock = Packed Record 

LastHead : Integer; 
LastCylinder : Integer; 



DummyDCBStatus 



: 0..255; 



DskType 
DskUnit 



: DiskType; 
: UnitNumber; 



{ Cylinder of last Seek, Rd, ) 
{ RdCheck, WrFonnat, Wr ) 
{ or WrCheck operation. ) 



{ 0..16 } 
{ CIS ) 



Command : 0..255; { Legal DiskuCodeCommand = 0..7 ) 
SectorCount : 0..255; { Only used during Reads. ) 
Physical Address : PhyVol Address; { Double ) 



HeaderBufferPo inter : lOHeadPtr; 
DataBufferPointer : lOBufPtr; 



DskStatus : SMStatus; 



Phys Parameters 
Sector 
Head 

Cylinder 
BootSize 
DiskPages 
End; 



Packed Record 
: 0..255; 
: 0..256; 
: Integer; 
: Integer; 
: Long 



{ Long ) 
{ Long ) 

{ Word } 

{ 5 Words } 



{ String[81, or 9 Bytes ) 



VolumeName : Vol Name; 
DummyByte : 0..265; 
DCBStatus : DStatus; 
PrecompCyl : Integer; 
End; { Case ) 

Disk Control Array 

The Disk Control Array is an array of DCB's. For every disk 
which has been Mounted there is an active DCB. When a Disk is 
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Dismounted the active DCB for that Disk is made inactive. 

When a Start 10 is issued to the uCode, it is given (on the 
E Stack) a VolumelD. This VolumelD is actually an Index to 
this array. The uCode then Procedes to determine what command 
to execute by examining the indexed (selected) DCB. All the 
information necessary for executing this command and returning 
results is contained in this DCB. In fact some information is 
also returned in the DCB by the uCode. 

DskCtrlArray = Packed Array IVolRangeTypel Of EIODskCtrlBlock ; 
PtrDskCtrlArray = ''DskCtrlArray; 

Commands to the EIO uCode 

The uCode will be capable of performing the following 
operations: 

Idle (ReadStatus) Command 
\\\\\\\\\\\\\\\\\\\\\\\\\ 

Description 

Selects the given Drive, then returns the current 

State Machine Status and puts the State Machine in 

an Idle Loop. 
Use 

Can be used to get the Status of a Drive and 

Status of the State Machine. 
Inputs 

Items of the DiskControlBlock Which are used: 
Command = Idle 

DiskType : To Select Drive 
Unit Number : To Select Drive 
Outputs 

SMState Returned in DiskControlBlock after Unit 

is selected. . 

WrCheck Command 

\\\\\\\\\\\\\\\ 

Description 

This Command is used to check a Logical Header 

and write a Data Buffer to a Disk block. An 

implicit Seek is performed to the desired disk 

address. Single and Multi Sector WriteChecks are 

currently supported. 



Use 



This command can be used to write block(s) 
of an existing file without modifying the overall 
blocks utilized by the file. Used by the System 
System for Swapping. 



- 58 - 



POS Operating System - Module DiskDef 



January 15, 1984 



Inputs 

Items of the DiskControlBlock Which are used: 
Command = WriteCheck 



Outputs 



SectorCount 
DiskType 
DiskType 
Unit Number 
LastCylinder 
Physical Address 
HeaderPo inter 

DataBufferPointer 



Status 
LastCylinder 



Number of Sectors to Write. 

To Select Drive. 

To Select Drive. 

To Select Drive. 

To Perform Seek. 

Disk Address to WriteCheck. 

Address of Logical Header. 

For DMA and Compare. 
Address of Data Buffer. For 

DMA. Data written onto 

the Disk. 

SMStatus Reg after 
WriteCheck is complete. 

Current Cylinder designated 
by the Physical Address. 



WrFirst Command 

\\\\\\\\\\\\\\\ 

Description 

This Command is used to write a Logical Header 
and write a Data Buffer to a Disk block. An 
implicit Seek is performed to the desired disk 
address. No Checking of the old (on disk) Logical 
Header is performed. This function is used by 
the file system as FirstWrite. Only single Sector 
Writes are currently supported. 
Use 

This command is used to create new files and modify 
existing files. This command is used to perform 
File System Disk Writes. 
Inputs 

Items of the DiskControlBlock Which are used: 
Command = Write 



Outputs 



DiskType 
Unit Number 
LastCylinder 
Physical Address 
HeaderPo inter 



DataBufferPointer 



Status 
LastCylinder 



To Select Drive. 
To Select Drive. 
To Perform Seek. 
Disk Address to Write. 
Address of Logical Header. 

For DMA. Logical Header 

is Written onto the Disk 
Address of Data Buffer. For 

DMA. Data is written onto 

the Disk. 

SMStatus Reg after 

Write is complete. 
Current Cylinder designated 

by the Physical Address. 
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Format Command 

wwwwwww 

Description 

This command writes Physical Header, Logical 
Header and Data Block to the selected Disk Sectors. 
This command is used to format an entire track. 
The uCode must first seek the correct Cylinder. 
Select the appropriate track. Then wait for the 
Index pulse from the drive. When the Index is seen 
then the uCode must WriteFormat the number of Sectors 
given by SectorCount. Note that the Sector number 
of the PhysicalHeader must be initially cleared 
and incremented after each sector is transferred. 
The old data in the Disk Track is Lost. 
No provision is provided for formatting a single 
Sector in the middle of a track. It is hard to 
imagine how or why this would be done. 

Use 

The Command is used only in the Disk Formatting 
and Disk Initialization Procedures. 

Inputs 

Items of the DiskControlBlock Which are used: 
Command = FormatWrite 



DiskType 
Unit Number 
LastCylinder 
PhysicalAddress 



SectorCount 
HeaderPo inter 



DataBuf f erPoi nter 



Outputs 



Status 
LastCylinder 



To Select Drive. 

To Select Drive. 

To Perform Seek. 

Disk Address to Format. 
Initially the Physical 
Header to Write. Sector 
Number will be cleared 
then incremented by uCode. 

Number of Sectors to Format. 

Address of Logical Header. 
For DMA. Logical Header 
which is written. The 
same Logical Header is 
written to all Sectors 
to be Fonnatted by one 
command. 

Address of Data Buffer. For 
DMA. Data written onto 
the Disk. The same Data 
Block is written to all 
Sectors which are 
Formatted by one command. 

SMStatus Reg after 

Write is complete. 
Current Cylinder designated 

by the PhysicalAddress. 
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RdCheck Command 
\\\\\\\\\\\\\\\ 

Description 

This command compares Logical Header Data given 
as an argument with the Logical Header of the 
selected sector. The Logical Header and Data 
Block are read off the Disk. An implicit Seek 
is performed to the desired Cylinder. Multiple 
Sector Reads are supported by the uCode. When 
doing a Multiple Sector Read the first Sector is 
address by the Physical Address. Subsequent Sectors 
are addressed by the LogicalHeaders of their 
Predecessor. The DataBuffer is assumed to be 
large enough to hold the Multiple Sector transfer. 
The HeaderBuffer is overwritten with the Logical 
Header of each Sector which is transferred. Thus 
it is only the size of one Logical Header. When 
the transfer is complete the HeaderBuffer will be 
the LogicalHeader of the last Sector Transferred. 

Use 

Not used to perform reads of files by the 
File System. Note that the contents of the Disk 
Sector's Logical Header must be known for this 
operation to succeed. Used by the System 
for Swapping. 

Inputs 

Items of the DiskControlBlock Which are used: 
Command = ReadCheck 



Outputs 



SectorCount 
DiskType 
Unit Number 
LastCylinder 
Physical Address 
Header Pointer 



DataBufferPointer 



HeaderPo inter 



DataBuf f erPoi nter 



Status 
LastCylinder 



Number of Sectors to Read. 

To Select Drive. 

To Select Drive. 

To Perform Seek. 

Disk Address to ReadCheck. 

Address of Logical Header. 

For DMA and Compare. 

Logical Header of the 

Sector will go here. 
Address of Data Buffer. For 

DMA. Data will be Read 

from the disk into this 

buffer. 

HeaderBuffer will be loaded 

with the Logical Header 

of the Last Sector 

which is Read. 
DataBuffer will be loaded 

with the Data Block 

of the Sector(s) being Read. 
SMStatus Reg after 

ReadCheck is complete. 
Current Cylinder designated 

by the Physical Address. 
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DiagRead Command 

wwwwwwww 

Description 

Read the Logical Header and Data Block of the 
specified Disk Sector. No checking of the Logical 
Header is performed. An Implicit Seek is performed 
to the selected Disk Cylinder. Note that Multiple 
Sector Reads are supported by the uCode. When 
doing a Multiple Sector Read the first Sector is 
address by the PhysicalAddress. Subsequent Sectors 
are addressed by the LogicalHeaders of their 
Predecessor. The DataBuffer is assumed to be 
large enough to hold the Multiple Sector transfer. 
The HeaderBuffer is overwritten with the Logical 
Header of each Sector which is transferred. Thus 
it is only the size of one Logical Header. When 
the transfer is complete the HeaderBuffer will be 
the LogicalHeader of the last Sector Transferred. 

Use 

Used when the Logical header of a Disk Sector is 
not known, but the Sector needs to be read, for 
example, in Scavenge. 

Inputs 

Items of the DiskControlBlock Which are used: 
Command - Read 



Outputs 



DiskType 
Unit Number 
LastCylinder 
PhysicalAddress 



SectorCount 
HeaderPo inter 



Dat aBuf f erPo i nt er 



HeaderPo inter 



Dat aBuf ferPoi nter 



Status 



LastCylinder 



To Select Drive. 

To Select Drive. 

To Perform Seek. 

Disk Address to Read. 
When Reading more than 
one Sector this is only 
the address of the first. 

Number of Sectors to Read. 

Address of Logical Header. 
Logical Header of the 
Sector will go here. 

Address of Data Buffer. For 
DMA. Data will be Read 
from the disk into this 
buffer. 

HeaderBuffer will be loaded 
with the Logical Header 
of the last Sector Read. 

DataBuffer will be loaded 
with the Data Block 
of all the Sectors Read. 

SMStatus Reg after 
Read is complete. 

Cylinder of the last block 
which is read. 
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Seek Conunand 

wwwwww 

Description 

Move the Heads of the specified Drive to the 

specified Cylinder and Head Addresses. 
Use 

Used in Initialization, Mounting and Dismounting, 

and in Error Recovery. Used to determine size of 

some Disk types available in different sizes. 

Not used by the File System. The commands Write, 

WriteCheck, Read and ReadCheck all perfonn implicit 

seeks in the Disk uCode. 
Inputs 

Items of the DiskControlBlock Which are used: 
Command = Seek 



DiskType 
Unit Number 
LastCylinder 
PhysicalAddress 



Outputs 



To Select Drive. 

To Select Drive. 

To Perform Seek. 

Disk Address to Seek. Only 
the Cylinder and Head 
Addresses are used, 
used. 



Status : SMStatus Reg after 

Read is complete. 

LastCylinder : Cylinder to which Seek 

has been done. 

Reset Command 

\\\\\\\\\\\\\ 

Description 

Clears all error conditions in the controller and 
in the selected drive. Also performs an implied 
Seek to Cylinder 0. The uCode will Issue a Drive 
Restore Command. 
Use 

Used at initialization. Mounting, Dismounting and 
Error Recovery. 
Inputs 

Items of the DiskControlBlock Which are used: 
Command = Reset 

DiskType . : To Select Drive. 
Unit Number : To Select Drive. 
Outputs 

Status : SMStatus Reg after 

Seek to is complete. 
LastCylinder : Set to 0. 



Type 
DskCmds = (Dskldle, DskRdCheck, DskDiagRead, DskWrCheck, 
DskWrFirst, DskFormat, DskSeek, DskClear); 
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PDiskCtrlBlock = "DiskCtrlBlock; 
DiskCtrlBiock = Packed Record 



Buffer 

DskConunand 

DskNumSect 

DskAddr 

DskHeader 

Dsk 

DskpNext 

DskDevCyl 



{This must be quad word aligned ) 
lOBufPtr; { Pointer to data buffer for 

transaction ) 
0..255; 
0..255; 

Integer; {for icl cio mi crop holds hd/sec) 
lOHeader; 
DskResult; 
PDiskCtrlBlock; 
Integer; {Added for icl cio mi crop, 

dev (3 bits) and cyl (13) ) 



End; 



Type 



DIBlock = Packed Record 



{ blocks in boot ) 



BootSize : Integer; 

NumSector : Integer; 

NuraHeads : Integer; 

NuinCylinders : Integer; 

PreCompCylinder : Integer; 

DIBlFiller : array[1..109] of integer; { Word } 

{ String to use as name for this volume after mount. ) 
VolumeNaroe : packed array [1.. 81 of char; 

{ Hints of the addresses of the first and last logical } 
{ blocks of this volume. } 
VolumeStart: Long; 
VolumeEnd : Long; 

{ Hints of the Partition Information Blocks for the ) 
{ partitions of this volume. ) 
Subparts : array[0. .631 of Long; 

DIB2Filler : arrayll..21 of integer; { Word } 

case DeviceClass : DiskKinds of 
FlpDisk : ( ); 

IntDisk : (IntDiskClass : IntDiskKinds); 
ExtDisk : ( ) 

End; { DIBlock } 

PDIBlock = "DIBlock; 



{//////////////////////////////////////////////////////////// 

When Mapping this File System stuff onto the Floppy, FSpDB 
Floppy Sectors are used for each Disk Page. One Sector of each 
Track of the Floppy is used to hold all the Headers for the 
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Pages that fit in the remaining Sectors of that Track. One 
Floppy Sectors per Track are not used. 



Type 



FlopHdArray = Array [ O..FHpS-l] of lOHeader; { Holds the Headers } 
FlopHeadPtr = ^FlopHdArray; 



Var 



PtrDCA 


: PtrDskCtrlArray; 


NumDCBUsed 


: VolRangeType; 


IntDiskType 


: IntDiskKinds; 


PtrVBuf ; 


. PtrVolBuffer; 


PtrVHBuf : 


PtrVolHeaderBuf f er ; 


StatPtr : 


lOStatPtr; 


BufPtr : 


lOBufPtr; { note that a full disk buffer is not 




allocated for this variable, 




Use only with lOSeek, lOIdle, lOReset ) 


HdrPtr : 


lOHeadPtr; 


FHeadPtr : 


FlopHeadPtr; 



Var 



EIOFlag : Boolean; 

PDskCtrl : PDiskCtrlBlock; 

Initialized : Integer; 

CIODiskType : (ClOShugart, CIOMicropolis, ClOUnknown); 
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mcxlule DisklO; 



Abstract 

This is an implementation of the DisklO interface which uses the 
new VolumeSystem module. It is provided as a compatibility module 
in order to support the kl hardware with little modification of system 
software above the level of DisklO. Eventually diskio will be removed 
from the system and higher level software will need to be modified to 
use VolumeSystem directly; in particular, this will be required to 
support more than a single hard disk and single floppy. 

Old Abstract: 

This module implements the basic low level op)erations to disk devices. 
It services the Hard Disk and the Floppy. When dealing with the floppy 
here, the structures on the hard disk are mapped to the structures 
on the floppy. 



} 

SVersion 4.8 for POS} 

^XXXX^XXXXXXXX^) exports { XX X XXXXXXXXXXXXXXXXXXXXXXXX ) 

imports FileDefs from FileDefs; 
imports lOErrors from lOErrors; 

{device code of Shugart Disk} 
{device code of FloppyDisk} 

{a Disk Address can be distinguished from a Segment Address by the 
upper two bits (in 32 bits). These bits have a nonzero code to 
which disk the address is part of} 



const 




HARDNUMBER 


= 0; 


FLOPPYNUMBER 


= 1; 



RECX)RDIOBITS 


= #140000; {VirtualAddress upper 16 bits of 




disk} 


DI93ITS 


= RECORDIOBITS + (HARDNUMBERX( #20000));^ 


FLOPBITS 


= RECORDIOBITS + (FLOPPYNUMBERX(#20000)); 



{The following definitions tell how many entries there are in the 
three pieces of the random index. The first piece (Direct) 
are blocks whose DiskAddresses are actually contained in the 
Random Index (which is part of the FilelnformationBlock). 
The second section has a list of blocks each of which contain 
128 Disk Addresses of blocks in the file, forming a one level 
indirect addressing scheme. 

For very large files, the third section (Dblind) has DiskAddresses of 
blocks which point to other blocks which contain 128 DiskAddresses 
of blocks in the file, forming a two level indirect scheme.} 
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DIRECTSIZE = 64; { Entries in FIB of blocks direaly accessible } 
INDSIZE = 32; { Entries in FIB of 1 level indirect blocks } 
DBLINDSIZE = 2; { Entries in FIB of 2 level indirect blocks ) 

FILESPERDIRBLK =16; { 256 / SizeOf(DirEntry) ) 

NUMTRIES = 15; { number of tries at transfer before aborting } 

type 

{Temporary segments go away when processes are destroyed. 
Permanent segments persist until explicitly destroyed 
Bad Segments are not well formed segments which are not 
readable by the Segment system) 

SpiceSegKind = (Temporary, Permanent, Bad); 

PartitionType = (Root, llnUsed, Leaf); (A Root Partition is a device) 
DeviceType = (Winchl2, Winch24, FloppySingle, FloppyDouble, 
CIOMicrop, GenericSInch); 

MyDble = Array [0..1] of integer; 

DiskCheatType = record 

case integer of 
1: ( 

Addr : DiskAddr 



); 

2: ( 



Dbl : MyDble ( should be 10. Double but 

don't import 10 in export 
section ) 

); 
3: ( 

Seg : SegID 

); 
4: ( 

Lng : FSBit32 

) 
end; 

{ A directory is an ordinary file which contains SeglDs of files 
along with their names. Directories are hash coded by file name 
to make lookup fast. They are often sparse files (ie contain 
unallocated blocks, between allocated blocks). The file name is a 
SimpleName, since a directory can only contain entries for 
files within the partition (and thus device) where the directory 
itself is located ) 

DirEntry = packed record 

InUse : boolean; {true if this DirEntry is valid) 
Deleted : boolean; {true if entry deleted but not 

expunged ) 
Archived : boole an; {true if entry is on backup tape) 
UnlJsed : 0.. #17777; {reserved for later use) 
ID : SegID; 
Filename : SimpleName 
end; 
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{ The fillers in headers which are used as hints to the new head of 
the free list when a block is allocated in a partition (by 
AUocDisk) have been represented as unsigned 16 bit numbers 
denoting disk relative logical block numbers. For disks larger 
than 64K blocks this is not possible and a partition relative 
denotation is used instead on all future disks. FillerSemantics 
is the type of a field in the DIB of a disk which tells which 
interpretation applies for that disk. } 

FillerSemantics = (DiskRelative, PartRelative); 

DiskBuffer = packed record 

case integer of 
1: ( 

Addr : array [0..(DISKBUFSIZE div 2)-l] of 
DiskAddr 

); 

2: ( 

IntData : array [0..DISKBUFSIZE-11 of FSBitl6 

); 

3: ( 

ByteData : packed array [0..DISKBUFSIZEX2-11 of 
FSBitS 

); 

{4 is format of the FilelnformationBlock; the FIB has Logical Block -1 } 

4: ( 

FSData : FSDataEntry; 

{The Random Index is a hint of the DiskAddresses 
of the blocks that fonn the file. 
It has three parts as noted above. Notice 
that all three parts are always there, so 
that even in a very large file, the first 
DIRECTSIZE blocks can be located quickly 
The blocks in the Random index have logical 
block numbers that are negative. The logical 
block number of Indirect [01 is -2 (the FIB is 
-1) the last possible block's number is 
-( INDSIZE+DBLINBDSIZE+1 ) ) 

. Direct : array [0.. DIRECTSIZE- 11 of DiskAddr; 
Indirect : array [0..INDSIZE-11 of DiskAddr; 
Dblind : array [0..DBLINDSIZE-1] of DiskAddr; 

SegKind : SpiceSegKind; 

NuoiBlksInUse : integer; {segments can have gaps, 

block n may exist when 
block n-1 has never been 
allocated. NumBlksInUse 
says how many data blocks 
are actually used by the 
segment ) 

LastBlk : FSBitl6; {Logical Block Number of 

largest block allocated) 

- 69 - 



POS Operating System - Module DisklO 



January IS, 1984 



LastAddr : DiskAddr; {DiskAddr of LastBlk } 
LastNegBlk : FSBitl6; {Logical Block Number of 

largest pointer block 
allocated) 
LastNegAddr: DiskAddr (Block number of 

LastNegBlk) 

); 

{6 is the format of a DisklnformationBlock or a PartitionlnformationBlock) 

5: ( 

{The Free List is a chain of free blocks linked 
by their headers ) 

FreeHead : DiskAddr; (Hint of Block Number of 

the head of the free 

list) 
FreeTail : DiskAddr; {Hint of Block Number of 

the tail of the free 

list) 
NumFree : FSB it 32; {Hint of how many blocks 

are on the free list) 
RootDirlD : SegID; {where to find the Root 

Directory) 
BadSegID : SegID; {where the bad segment is) 

{when booting, the boot character is indexed into 
the following tables to find where code to be 
boot loaded is found ) 



{6 



{7 



); 



BootTable : 
InterpTable: 

PartName 

Part St art 

PartEnd 

Subparts 

PartRoot 

PartKind 

PartDevice 



array [0..25] of DiskAddr; {qcode) 
array [0..251 of DiskAddr; {micro- 
code) 
packed array [1..81 of char; 
DiskAddr; 
DiskAddr; 

array [0..63] of DiskAddr; 
DiskAddr; 
PartitionType; 
DeviceType 



is the format of a block of a Directory) 
6: ( 

" Entry : array [0..FILESPERDIRBLK-1] of 

DirEntry 
); 

is a format for DisklnformationBlocks which contains a flag denoting 
the meaning of filler words in the header of blocks on the disk; 
it takes advantage of the fact that the definitions of PIBs and DIB are 
intertwined in variant 5 above so that the initial words in a DIB can 
be assumed to contain O's since initial words are only used in blocks 
which are actually PIBs. Hence all shugart disk volumes should have 
the value DiskRelative for the FillerKind field by default.) 
7: (FillerKind : FillerSemantics) 
end; 

ptrDiskBuffer = "DiskBuffer; 
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Header = packed record {format of a block header) 

SerialNum : DiskAddr; {Actually has the SegID of the 

file) 
LogBlock : integer; {logical block number) 
Filler : integer; {holds a hint to a candidate 

for the FreeHead) 
PrevAdr : DiskAddr; {Disk Address of the next block 

in this segment) 
NextAdr : DiskAddr; {Disk Address of the previous 

block in this segment) 
end; 

ptrHeader = ^Header; 

DiskCommand= (DskRead, DskWrite, DskFirstWrite, DskReset, DskHdrRead, 
DskHdrWrite); {last ones for error reporting) 

var 

DiskSegment : integer; {a memory segment for DisklO) 

procedure InitDisklO; {initialize DisklO, called at boot time) 

procedure ZeroBufferCptr : ptrDiskBuffer); {write zeroes in all words of 

the buffer. When reading an 
unallocated block. Zeros are 
returned in the buffer) 

function WhichDiskCaddr : DiskAddr) : integer; {Tells you which disk 

number a DiskAddr is on) 

function AddrToField(addr : DiskAddr) : integer; {gives you a one word 

short address by taking the 
lower byte of the upper word 
and the upper byte of the 
lower word. The upper byte 
of the upper word can't have 
any significant bits for the 
12 or 24 megabyte disks. The 
lower byte of the lower word 
is always zero (since a disk 
address is a page address, 
which is 256 words 
) 

function FieldToAddr(disk: integer; fid : integer) : DiskAddr; 

{ Makes a DiskAddr out of 
a short address and a 
disk number 
) 
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procedure DiskIO(addr : DiskAddr; ptr : ptrDiskBuffer; 

hptr : ptrHeader; dskcommand : DiskCommand); {Do a disk 

operation, if 
errors occur, 
exits via 
DiskError) 



f unct i on LogAddrToPhy s Addr ( addr 



DiskAddr) : DiskAddr; 
(translate a Logical Disk Address (used 
throughout the system) to and from a 
physical Disk Address (the kind the disk 
contoller sees) Logical Disk Addresses 
use a sequential numbering system 
Physical Disk Addresses have a 
C^linder-Head-Sector system This routine 
calls MapAddr (a private routine which 
does the translation) Map Addr 
implements interlace algorithm) 

function PhysAddrToLogAddr(disk : integer; addr : DiskAddr) : DiskAddr; 

function LastDiskAddr(DevType : DeviceType) : DiskAddr; (Gets the Disk 

Address of the last 
possible page on the device) 

function NumberPages(DevType : DeviceType) : FSBit32; (Return the number 

of pages on a device) 

procedure DiskReset; (Reset the disk controller and recalibrate the 

actuater ) 

function TryDiskIO(addr : DiskAddr; ptr : ptrDiskBuffer; 

hptr : ptrHeader; dskcommand : DiskCommand; 
numTries: integer) : boolean; 

(Try a disk operation, but, return 
false if error occurred 
) 

Exception DiskFailure(msg: String; operation: DiskCommand; addr: DiskAddr; 

softStat: integer); 
Exception DiskError(msg: String); 
Exception BadDevice; 

Var ErrorCnt : Array [IOEFirstError..IOELastError] of integer; 
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module DiskParams; 



Abstract : 

This program maintains a data base of mappings from disks 
to their parameters. The format of the data base is: 

1. ? starts a comment terminated by the end of line character. 

2. Each entry occupies 1 Line. 

<Disk> <SecPerTrack> <Heads> <NumCylinder> <PreCompCyl> <BootSize> 

Micropolis 16 8 256 128 32 

This line says that the Micropolis 6.26** drive has 16 sectors per 
track, 8 heads per cylinder, 256 cylinders, write pre-comp starts 
at cylinder 128 and the boot size is 32 sectors. 



) 



exports 



Function GetParms(DiskName: string; 

Var Head, Cyls, sectors, precompcyl, boot size: Integer 
): Boolean; 

procedure ParamHelp; 

Procedure SetUpDiskParams (Automatic: Boolean; 

DiskName: String; 
Var NumHeads, 
NumCylinders, 
SecPerTrk, 
BootSize, writecompcyl: Integer); 
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module DiskUtility; 



DiskUtility - TV ( Tony Vezza ). 

Copyright (C) 1983, PERQ Systems Corporation 

Abstract ; 

DiskUtility exports procedures to the Vol Subsystem. Contains 
procedures and functions to perform many disk op)erations. 



(SVersion VI. for POS} 



Exports 



Imports VolumeSystem From VolumeSystem; 
Imports DiskDef From DiskDef; 
Imports System From System; 



e^^^Be^xx) 



Procedure VInitialize ; 
Function 



Procedure 
Procedure 
Function 



Mount ( PID 

Labelled 

DisMount( PID 

InitDCB( VID 

CheckVolume( VID 
DKind 



PhyDiskID; 
Boolean ) : Vol ID; 

PhyDiskID ); 

Vol ID) ; 

Vol ID; 

DiskKinds ) : DiskType; 



GetVolName( VID 
GetDiskSize( VID 
FreeDCB( VID 
VolSize( VID 



Function 

Function 

Function 

Procedure 

Function VolToPhyAddr( VA : VolAddress) : Double; 

Function 



: VolID) : VolName; 
Vol ID) : Long; 
: VolID) : Boolean; 
: VolID); 



PhyToVolAddr( VID : VolID; 

PA : PhyVolAddress) : VolAddress; 

Procedure ToLogHeader(VID : VolID; 

PVolHead: PtrVolHeaderBuffer; 
PLogHead: lOHeadPtr ) ; 

Procedure FromLogHeader( VID : VolID; 

PLogHead i lOHeadPtr; 

PVolHead : PtrVolHeaderBuffer ) ; 
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Function PhyToLogAddrC VID : Vol ID; PA : PhyVol Address) 
Function LogToPhyAddr( LA : LogAddress) : Double; 



Funct 
Funct 
Funct 



on VolToLogAddr( VA : VolAddress) : LogAddress; 
on LogToVolAddr( LA : LogAddress ) : VolAddress; 
on Flpv^ap( VA : VolAddress) : Double; 



Function FlpyUnMap( VID 

PA 



Vol ID; 

PhyVolAddress) : VolAddress; 



LogAddress; 



Procedure GetDiskParaineters(Var Heads : Integer; 

Var Sectors PerTrack : Integer; 
Var NumCylinders: Integer); 
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module DoSwap; 

Abstract : 

Turns swapping on or off for the shell. 

Copyright (C) PERQ Systems Corporation, 1982 

Version Number Vl.l 

{///////////////////////////////} EXPORTS {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\} 

Imports CmdParse from CmdParse; 

Procedure DoSwap(args: CString); 

Procedure DoSwap(args: CString); 
Abstract : 

Handles the Swap command 



- 77 - 



POS Operating System - Module Dynamic January 15» 1984 

module Dynamic; 

Dynamic - Perq dynamic memory allocation and de-allocation. 

J. P. Strait 1 Jan 80. 

Copyright (C) PERQ Systems Corporation, 1980, 1981, 1982. 

Abstract : 

Dynamic implements Pascal dynamic allocation - New and Dispose. 
Memory of a given size with a given alignment may be allocated 
from any data segment with the standard procedure New which calls 
the NewP procedure of Dynamic. 

Data segments are created with CreateSegment from Memory or 
CreateHeap from Dynamic. Segments created with CreateSegment are 
automatically enlarged when they become full. They are enlarged 
by multiples of the segment's increment size until there is enough 
free memory for the allocation. When an attempt is made to 
increase the segment past its maximum size, an exception is 
raised. 

Segments created with CreateHeap do not have increment sizes or 
maximum sizes. Whenever a segment becomes full, another segment 
of the same size is created and linked to the full segment. This 
new segment is given the same reference count as the parent. 
Allocation is potentially done from any of the segments. Thus 
There are a heap of segments from which to allocate. This heap is 
identified by the segment number of the first segment allocated. 
If an allocation is attempted which is larger than the size of the 
segments, one larger segment is created. 

Both heaps and segments may be destroyed by DecRef Count. 
IncRefCount and DecRef Count applied to a single segment in a heap 
increment or decrement all segments in the heap. DecIOCount and 
IncIOCount increment and decrement only a single segment. 

Dispose may be used for both segments and heaps. Memory that is 
deallocated by Dispose becomes a candidate for allocation with 
New. 

The default segment (the one obtained by New(P) without an 
explicit segment number) is made by CreateSegment (4, 4, 256) for 1/4 
MByte systems and is made by CreateHeap (20) for larger systems. 
This segment may be destroyed by DecRefCount(O). 

Design: Free memory within each segment is linked into a circular 
freelist in order of address. Each free node is at least two 
words long and is of the form 

record Next: Integer; 

Length: Integer; 

Rest: 25a^ngth - 2 words 

end; 

Where Next552 is the address of the next free node and Length552 is 
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the number of free words. 

Version Number V2.5 

exports 

imports Memory from Memory; 

procedure NewP( S: Segment Number; A: integer; var P: MMPo inter; 

L: integer ); 
procedure DisposeP( var P: MMPointer; L: integer ); 
procedure CreateHeap( var S: SegmentNumber; Size: MMExtSize ); 
procedure DestroyHeap( S: SegmentNumber ); 

exception NotAHeap( S: SegmentNumber ); 

exception SegTooBigForNew( S: SegmentNumber ); 
Abstract : 

Raised wlien allocate out of a segment that has >256 blocks or when 
try to create a heap of >256 blocks. 

Parameters : 

The segment allocating from. 

procedure DisposeP( var P: MMPointer; L: integer ); 

Abstract : 

Deallocate memory. 

Parameters : 

P - Pointer to the memory. 

L - Length in words, represents a length of 2X1(16. If L is odd, 
L+1 words are de-allocated. 

Errors: NilPointer if P is nil. 

BadPo inter 1) if the Offset part is odd. 

2) if Offset +Length > size of segment. 

3) if the node to be Dispose overlaps some node that is already 
free. 

4) if the segment is not InUse or not a DataSegment. 

procedure NewP( S: SegmentNumber; A: integer; var P: MMPointer; 
L: integer ); 

Abstract: 

Allocate memory. 

Parameters : 

S - Number of the segment from which to allocate (if created by 
CreateSegment ) or root segment of the heap (if created by 
CreateHeap). means the default data segment. 
A - Alignment of node in words relative to beginning of segment, 
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represents an alignment of 2^16. if A is odd, A+1 is used 

as the alignment. 
P - Set to point to the memory that was allocated. If the data 

segment is full and cannot be increased, P is set to nil. 
L - Length in words, represents a length of 2^16. If L is odd, 

L+1 words are allocated. 

Errors: Full Segment if the segment has reached its maximum size and 
there isn't enough room for the node. 

FullMemory if NewP tries to expand the segment, but there enough 
physical memory to do so. 
UnusedSegment if S is not Inllse. 
NotDataSegment if S is not a DataSegment. 

procedure CreateHeap( var S: SegmentNumber; Size: MMExtSize ); 

Abstract : 

Create the root data segment for a Heap. 

Parameters : 

S - Set to the number of the new segment. 
Size - The size of the initial segment and all subsequent 
segments. Must be <= 256. 

Errors: SegTooBigForNew is size is >256. 

procedure DestroyHeap( S: SegmentNumber ); 

Abstract : 

Destroy a Heap or a Segment. 
Parameters : 

S - The segment number of the root of the Heap. 

Errors: UnusedSegment if S is not InUse. 

NotDataSegment if S is not a DataSegment. 
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module EtherlOIO; 

Abstract; 

This module provides the client interface to the 10 Mbaud Ethernet 
microcode. 

Written by: Don Scelza 

Copyright (C) PERQ Systems Corporation, 1981, 1983 

Version Number V2.5 

{xie%%%%x3g^^ae%%xxxxxx9e) Exports {xxiexxxxxxse^^ex^^e^exxx} 

This module provides the raw I/O interface to the PERQ Systems Ethernet 
system. The procedures in this module allow the client to send and receive 
packets on the net. 

For details of the Physical and Data Link layers of the network see the 
document: 

The Ethernet 

A Local Area Network 

Data Link Layer and Physical Layer Specifications 

DEC - Intel - XEROX 

For details on the PERQ Systems hardware interface to the network see: 

Ethernet Interface Programmers Guide 

Pradeep Reddy 

For details on the interface presented, to this module, by the Ethernet 
microcode see the file: 

EtherlO. Micro 

Donald A. Scelza 

Following is some general information about the client interface presented 
by the Ethernet microcode and this module: 

It is possible to always have a receive pending. If a send command is 
executed while a receive is pending the internal state of the interface is 
saved in a register save area in memory. This is done by saving the VA of 
the DCB for the receive. After the send has completed the receive state is 
reloaded and the receive is restarted. 

In addition to the ability to do a Receive followed by a Send, it is also 
possible to do multiple Receives. The Receives are linked using the NextDCB 
field of the Ethernet DCB. When a Receive completes the next Receive in the 
chain is started. 

Command information for the Ethernet driver is provided in an Ethernet 
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Device Control Block, DCB. All data areas referenced by pointers in the DCB 
as well as the DCB itself must be LOCKED in memory until the request has 
completed. They can NOT be moved. The best way to do this is to mark the 
segment that the buffers are allocated from as UnMovable. This will allow 
the memory manager to place the buffers in a convient place in memory before 
they are locked down. 

The Ethernet driver needs to have a four (4) word area of memory in which it 
can save registers. A pointer to this area of memory is provided by the 
BuffPtr when a Reset command is executed. Once the Reset command has been 
processed this register save area can NOT be moved. To change the register 
save area another Reset command must be executed. 

The Ethernet DCB must be unmovable while the command is pending. 

To wait for the completion of a command it is possible to spin on the 
Command-In-Progress bit in the status block. This bit will be cleared when 
the requested command has been completed. 

After a receive the Bits field of the status block has the number of bits 
that were received. To translate this into the number of data bytes you 
must perform a number of operations. First divide it by 8. This will give 
the number of bytes that were received. If the number is not evenly 
divi sable by 8 then there was a transmit ion error. After the division you 
must subtract off the number of bytes in the header and the CRC. There is a 
total of 18 bytes in these two portions of the packet. 

The Ethernet controler can receive packets that are addressed in the 
following ways: 

a) Packets addressed to this machine. 

b) Packets addressed to any machine. 

c) Packets addressed to five of 256 groups. 

d) Packets addressed to any group. 

The Reset command is used to set up the addressing for a given machine. 
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imports SystemDefs from SystemDefs; 
imports System from System; 



{ 



{ Define the types and variables used by the Network stuff. 
{ } 



type 



{ 

{ These are the valid commands for the Ethernet interface. 

{ } 

EtherCommand = (EReset, EReceive, EPromiscuousReceive, ESend); 

( 

{ An Ethernet address is 48 bits long. It is made up of 6 

{ octets or in our case 3 words. 

( } 

EtherAddress = packed record { An address on the net is 48 bits } 
High: integer; 
Mid: integer; 
Low: integer; 
end; 



This record defines an Ethernet status block. The first 

15 bits of the block are defined by the hardware interface. 

The 16th bit of the first word and the second word are defined by the 

Ethernet microcode. 



Alignment: 

Locked: 

} 



Double word. 
Yes. 



EtherStatus = packed record 
CRCError: boolean; 
Collision: boolean; 
RecvTrans : bool ean ; 



Busy: 
UnUsed4: 


boolean; 
boolean; 


ClockOver: 


boolean; 


PIP: 


boolean; 


Carrier: 


boolean; 


RetryTime: 
UnUsedl2: 


0..16; 
boolean; 


UnUsedl3: 


boolean; 


SendError: 


boolean; 


CmdlnProgress: 

BitsRecv: 

end; 


boolean; 
integer; 



{ The status record. ) 
{ There was a CRC error. ) 
{ There was a collision } 
{ - receive has finished. 

trans . ) 
{ The interface is bust. ) 



1 for 



{ The microsecond clock overflowed. 
{ There is a Packet In Progress. ) 
{ There is traffic on the net. ) 



{ Could not send packet after 16 tries.) 

{ There is a command pending. ) 

{ Number of bits that were received. ) 



{ 

{ This record defines the header for an Ethernet transfer. 
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{ 

{ Alignment: 8 word. 

{ Locked: Yes. 

{ } 

EtherHeader = packed record 

UnUsed: Integer; { A filler word. This must be here.) 

Dest: EtherAddress; 

Src: EtherAddress; 

EType: Integer; ' { Type field defined by XEROX ) 

end; 

( 

{ This record provides the definition of an EtherBuffer. 

{ 

( Alignment: Ik word. 

{ Locked: Yes. 

{ } 

EtherBuffer = array [0..7491 of integer; 

{ 

{ Define all of the pointers that we need. 

{ } 

pEtherStatus = ^EtherStatus ; 
pEtherBuffer = ^EtherBuffer; 
pEtherHeader = ^EtherHeader; 
pEtherDCB = "EtherDCB; 

{ 

{ This is the definition of an Ethernet Device Control Block. 

{ 

( Alignment: Quad word. 

{ Locked: Yes. 

( ) 

EtherDCB = packed record 

HeadPtr: pEtherHeader; 

Buf f Ptr : pEtherBuffer ; 

StatPtr: pEtherStatus; 

Cmd: EtherCommand; 

BitCnt: Integer; { Total bits in buffer and header } 

NextDCB: pEtherDCB; 

end; 

This is the definition that is used to create the register save 
area. Must exist across transfers. 

Alignment: Double word. 

Locked: Yes. 

} 

EtherRegSave = record 

- 86 - 



POS Operating System - Module EtherlOIO 



January 15, 1984 



RecvDCB: 
SendDcb: 
end; 



pEtherDCB; 
pEtherDCB; 



pEtherRegSave = "EtherRegSave; 



This is the definition of the structure that is used to set 
the physical address of this machine and the groups that we are 
to look for. 



Alignment: 

Locked: 

} 



1 word. 

Yes, during Reset. 



EtherAdRec = packed record 
LowAddress: Integer; 



MCB: 

MultCstl: 

MultCst2: 

MultCst3: 

MultCst4: 

MultCstS: 

end; 



0..255 
0..256 
0..266 
0..265 
0..256 
0..255 



{ Low word of Physical address ) 
{ Mulitcast command byte. ) 
{ Five group addresses. ) 



pEtherAdRec = ^EtherAdRec; 



Following are the definitions that are used to deal with the 
micro-second clock. 

The microsecond clock takes a two word combined control and 
status block. The first word of the block gives the number 
of microseconds to be loaded into the clock. 
The second word provides the status information from the 
clock. Once a clock command has been started it is 
possible to spin on the CmdInProgress bit in the control 
block. When the bit is cleared the specified number of 
micro-seconds has elapsed. 



type 



{ Alignment: 


Double word. 


{ Locked: 
{ } 


Yes. 


uSClkDCB = packed record 


uSeconds : 


integer; 


UnUsedO: 


boolean; 


UnUsedl : 


boolean; 


UnUsed2: 


boolean; 


UnUsed3: 


boolean; 


UnUsed4: 


. boolean; 


UnUsedS: 


boolean; 


UnUsed6: 


boolean; 
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UnUsedV: 

UnUsedS: 

UnUsed9; 

UnUsedlO; 

UnUsedll 

UnUsedi2: 

UnUsedl3; 

UnUsedM; 

CmdInProg: 

end; 



boolean; 
boolean; 
boolean; 
boolean; 
boolean; 
boolean; 
boolean; 
boolean; 
boolean; 



puXlkDCB = "uSClkDCB; 



Define the constants for the address block supplied to PERQ Systems by 
Xerox. 

High 16 bits (2 octets) are 02 IC (Hex). 
Next 8 bits (1 octet) is 7C (Hex). 

The low order byte of the second PERQ word as well as the third PERQ word 
are PERQ Systems defined. Chirrently the low order byte of the second word 
is used to define the type of interface. The valid values are: 



- Interface 

1 - Interface 



is on an 10 option board, 
is on the 10 board 



const 



TRCCAdrMid = 31744; 
TRCCAdrHigh = 640; 
EBoardOption = 0; 
EBoardIO = 1 ; 



{ 7C hex in the high order 8 bits. ) 

( 02 IC hex. } 

{ The interface is on an I/O Option board.) 

{ The interface is on the I/O board. } 



( 

{ These are some other useful constants. 

{ ) 



const 

MinDataBytes = 46; . 

MaxDataBytes = 1500; 
NumDCBs = 16; 



{ Smallest number of data bytes in a 

packet . ) 
{ Largest number of data bytes in a packet.} 
{ The number of DCBs, commands, possible at) 
{ a single time ) 



{ 

{ Define the constants for the multicast command byte. 

{ ) 



const 

MltCstAll = 0; 
MltCstNone = #377; 
MltCstAddr = #376; 
MltCstGrp = 1 ; 



{ Receive all mult leasts. } 

( Don't receive any multicast packets. ) 

{ Return the Physical addr of this device. 

{ Only receive specified groups. ) 
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{ 

{ These are the procedures exported by this module. 

{ } 

procedure ElOInit; 

procedure E10IO(Cmd: EtherCommand; Header: pEtherHeader; Buff: 

pEtherBuffer; 

Stat: pEtherStatus; Bytes: Integer); 
procedure E10Wait(Stat: pEtherStatus); 
procedure ElOResetCPtr: pEtherAdRec); 
function E10DataBytes(RecvBits: Integer): Integer; 
function ElOGetAdr: EtherAddress; 
procedure E10State(var NumSend, NumReceive: Integer); 
procedure E10WIO(Cmd: EtherCommand; Header: pEtherHeader; 

Buff: pEtherBuffer; Stat: pEtherStatus; Bytes: Integer); 

{ 

{ These are the exceptions that may be raised by this module. 

{ } 

exception ElONInited; 

Abstract : 

This exception will be raised if any procedures in this package 
are called before ElOInit. 

exception ElONReset; 

Abstract : 

This exception will be raised if any transfer commands are 
executed before a ElOReset is done. 

exception ElOByteCount; 

Abstract : 

This exception is raised if a byte count passed to this interface 
is not in the valid range. The number of data bytes in an 
Ethernet packet must be in the range 46 <-> 1500, (MinDataBytes 
<-> MaxDataBytes ) . 

exception ElODByteError; 

Abstract : 

This exception is raised if the number of Bits passed to 
ElODataBytes does not form a valid packet. 
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exception ElOBadCommand; 

Abstract : 

This exception is raised if a bad command is given to any of the 
routines in this package. 

exception ElOTooMany; 

Abstract : 

This exception is raised if more than NumDCBs commands are 
executed at any time. 

exception ElOSTooMany; 

Abstract : 

This exception is raised if more the client tries to execute more 
than one send. 

exception E10ReceiveDone(Stat: pEtherStatus ) ; 

Abstract: 

This exception is raised when a receive command has finished. It 
is raised by the Pascal level interrupt routine for the net. The 
exception is only raised when the ethernet exception for data 
interrupts has been turned on. The following does the trick: 

Import 10 Unit From 10 Unit; Setting := True; 
I0SetExceptions(Etherl5, lODatalnterrupt, Setting); 

Note that process clean up resets the bit on exit of a program. 

Parameters : 

Stat will be set to the status pointer of the command that 
finished. 

exception ElONoHardware;. 

Abstract : 

This exception is raised by ElOGetAdr if there is no ethernet 
board in the machine. 
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procedure ElOInit; 

Abstract: 

This procedure is used to intialize the Ethernet module. It must 
be called before any other procedure in this package are used. 

This procedure is called ONCE at boot time by the O.S. It WSI 
NOT be called by user programs. 

Side Effects: This procedure will allocate any memory used by this 
module. 

procedure EiOIO(Cmd: EtherCommand; Header: pEtherHeader; Buff: pEtherBuffer; 
Stat: pEtherStatus ; Bytes: Integer); 

Abstract : 

This procedure is used to start an Ethernet I/O operation and 
return. 

Parameters: 

Cmd is the command that is to be executed. 

Header is a pointer to an Ethernet header block. The client must 
fill in all fields of this header. 

Buff is a pointer to the buffer that is to be sent or filled. 

Stat is a pointer to a status block for use during this command. 

Bytes is the number of data bytes that are to be transfered. This 
value must be between 46 and 1500 

Exceptions: 

ElONInited: Raised if this procedure is called before Etherlnit. 

ElONReset: Raised if this procedure is called before EReset. 

ElOByteCount: Raised if Bytes is not in the valid range. 

ElOBadCommand: This is raised if the command passed is not Send, 
Receive or Promise iousReceive. 

ElOTooMany: is raised if too many commands are executed at a given 
time. 

ElOSTooMany: is raised if more than one send command is executed. 
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procedure E10Wait(Stat: pEtherStatus ) ; 

Abstract : 

Waits for the completion of some Ethernet request. 

Parameters : 

Stat is the pointer to the EtherStatus that was provided when the 
command was initiated. 

Exceptions: ElONInited: Raised if this procedure is called before 
ElOInit. 

ElONReset: Raised if this procedure is called before EReset. 
procedure E10Reset(Ptr: pEtherAdRec); 
Abstract : 

This procedure is used to reset the Ethernet interface. 
Parameters : 

Ptr is a pointer to the address record that is to be used for the 
reset. 

Exceptions: ElONInited: Raised if this procedure is called before 
Etherlnit. 

function E10DataBytes(RecvBits: Integer): Integer; 

Abstract : 

This procedure is used to obtain the number of data bytes that are 
in a paclcet that was received over the network. 

Parameters : 

RecvBits is the number of bits that were in the packet. This 
value will come from the BitsRecv field of the status block. 

Results: This function will return the number of data bytes that were 
in the packet. 

Exceptions: 

ElONInited: Raised if this procedure is called before Etherlnit. 

ElONReset: Raised if this procedure is called before EReset. 

ElODByteError: Raised if the numebr of bits in the packet was not 
a multiple of 8 or if the number of data bytes was less than 
MinDataBytes. 
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function ElOGetAdr: EtherAddress ; 

Abstract : 

This function will return the address of this machine. 

Exceptions: 

ElONInited: Raised if this procedure is called before ElOInit. 

ElONoHardware: Raised if there is no ethernet board in the 
machine. 

procedure E10State(var NumSend, NumReceive: integer); 

Abstract : 

This procedure is used to return the internal state of the 
Ethernet interface. 

Parameters; 

NumSend will be set to the number of Sends that are pending. 

NumReceive will be set to the number of receives that are pending. 

Exceptions: 

ElONInited: Raised if this procedure is called before ElOInit. 

ElONReset: Raised if this procedure is called before EReset. 

procedure E10WI0(Cmd: EtherCommand; Header: pEtherHeader; 

Buff: pEtherBuffer; Stat: pEtherStatus ; Bytes: Integer); 

Abstract : 

Starts an Ethernet I/O operation and waits for it to complete. 
Parameters : 

Cmd is the command that is to be executed. 

Header is a pointer to an Ethernet header block. The client must 
fill in all fields of this header. 

Buff is a pointer to the buffer that is to be sent or filled. 

Stat is a pointer to a status block for use during this command. 

Bytes is the number of data bytes that are to be transfered. This 
value must be between 46 and 1500 

Exceptions: ElONInited: Raised if this procedure is called before 
ElOInit. 

ElONReset: Raised if this procedure is called before EReset. 
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ElOByteCount: Raised if Bytes is not in the valid range. 

ElOBadConimand: This is raised if the command passed is not 

Send, Receive or PromisciousReceive. 

ElOTooMany: is raised if too many commands are executed at a given 
time. 

ElOSTooMany: is raised if more than one send command is executed. 
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module Etherlnterrupt; 

Abstract : 

This module provides the interrupt service for the 10 MBaud 
ethernet . 

Written by: Don Scelza. 

Copyright (C) PERQ Systems Corporation, 1981 

{x3e%3esex9»eie^^e9e^e9Be3Heie3S} Exports { xxxhxxxxxxxxxxxxxxx } 

imports EtherlOIO from EtherlOIO; 

var 

St ackPo inter: Integer; 
DCBStack: array [L.NumDCBsl of pEtherDCB; 
RListHead, RListTail, SListHead: pEtherDCB; 
Sends Posted, Recvs Posted: Integer; 

function PopDCB: pEtherDCB; 
procedure PushDCB(Ptr: pEtherDCB); 
procedure ElOSrv; 

function PopDCB: pEtherDCB; 

Abstract : 

Get the next free DCB from the stack. 
Results: Return a pointer to the next free DCB. 
Side Effects: Move the stack pointer, 
procedure PushDCB(Ptr: pEtherDCB); 
Abstract : 

Push a free DCB onto the DCB stack. 
Parameters : 

Ptr is a pointer to the DCB that is to be pushed onto the stack. 
Side Effects: Move the stack pointer. 
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procedure ElOSrv; 

Abstract : 

This is the 10 megabuad Ethernet interrupt routine. 

Exceptions: This procedure raises ElOReceiveDone if a receive 
completes. 
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module EtherTime; 

Copyright (C), 1982, 1983 PERQ Systems Corporation. 

Written by: Mark G. Faust 

Version Number VI. 2 

{xxxxxxiexxxxxxxxx) exports ( xxxxxxxxxxxxxxxx ) 

function GetEtherTiroedlmeOut : integer) :string; 

function GetEtherTimedimeOut : integer) istring; 

Abstract : 

Get the current time from an EtherNet time server. Return a Perq 
time string In standard format. Time out after specified number 
of jiffies. If we time out then we return the null string. 
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mcxlule Except; 

Except - Perq Pascal Exception Routines. 
J. P. Strait 10 Dec 80. 

Copyright (C) PERQ Systems Corporation, 1980, 1981, 1982, 1983. 
Abstract : 

Module Except provides the following things: 

1) Definitions of the microcode generated exceptions. 

2) A procedure to tell the microcode which segment number these 
exceptions are defined in. 

3) The default handler of all exceptions. The compiler enables 
this handler in every main program. 

4) A Pascal routine to search the stack in when an exception is 
raised. 

Design: The file Except. Dfs is included into Perq. Micro as well as 
into this module. It defines routine numbers for the exceptions 
generated by the microcode. Note that there must be agreement 
between these constants and the routine numbers of the exception 
definitions. No program checks these— if you add or remove 
exception definitions you must be sure to update Except. Dfs in the 
appropriate way. 

The routine number of RaiseP is also defined in Except. Dfs as 0. 
Since the microcode must know this, it is strongly suggested that 
it not be modified. 

The routine number of InitExceptions is not needed by the compiler 
or Perq. Micro, but it has been assigned routine number 1 so that 
its number will not change when new exceptions are defined. This 
means that new exceptions may be defined without requiring that 
the operating system be re-linked. 

Version Number V3.1 

exports 

const ExceptVersion = '3.1'; 

procedure RaiseP( ES, ER, PStart, PEnd: Integer ); 
procedure I n i tExcept i ons ; 
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except 
except 

except 

except 

except 

except 

except 

except 

except 

except 

except 

except 

except 

except 

except 

except 

except 

except 

except 

except 



ion Abort( Message: String ); 
ion Dump( Message: String ); 

ion XSegmentFaultC Si,S2,S3,S4: Integer ); { segment fault ) 

ion XStackOverflow; { stack overflow ) 

ion DivZero; { division by zero ) 

on MulOvfl; { overflow in multiplication } 

on Strlndx; { string index out of range ) 

on StrLong; { string to be assigned is too long } 

on InxCase; ( array index or case expression out of range } 

on SlLATETooDeep; { parameter in STLATE instruction is too large } 

on UndfQcd; { execution of an undefined Q-code ) 

on Undfint; { undefined device interrupt detected ) 

on lOSFlt; { segment fault detected during I/O } 

on MParity; { memory parity error ) 

on EStack; { E-stack wasn't empty at INCDDS ) 

on OvflLI; { Overflow In conversion to integer from Long Integer } 

on OverReal; { floating point overflow ) 

on UndeReal; { floating point underflow } 

on RealDivO; { floating point division by zero ) 

on Real2Int; { floating point real to integer overflow } 



exception UnlmplQCode; { QCode is defined, but not implemented in this 

interpreter } 

var ExcSeg: Integer; 

procedure I n i tExcept i ons ; 

Abstract: 

Ini tExcept ions tells the microcode what segment number to use when 
raising its own exceptions. The segment number is the one that 
the system assigns to this module. 

Side affects: ExcSeg is set to the current segment number. The 
current segment is kept resident. 
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procedure RaiseP( ES, ER, PStart, PEnd: Integer ); 

Abstract : 

RaiseP is called to raise an exception. The compiler generates a 
call to RaiseP in response to 

raise SomeException( original parameters ) 

in the following way 

Push original parameters onto the MStack. 

RAISE SegmentNumber(SomeException) Rout ineNumber(SomeExcept ion) 

ParameterSize 

The microcode calls RaiseP in the following way: 
Push parameters onto the MStack if appropriate. 
ParameterSize := WordsOf Parameters . 
Error := ErrorNumber, Goto(CallRaise). 

where CallRaise does the following: 

SaveTP := TP. 

Push ExcSeg onto the MStack. 

Push Error onto the MStack. 

Push SaveTP-ParameterSize+1 onto the MStack. 

Push SaveTP+1 onto the MStack. 

call RaiseP. 

Parameters : 

ER - Routine number of the exception to be raised. 
ES - Segment number of the exception to be raised. 
PStart- Pointer to the original parameters (as an offset from the 

base of the stack). 
PEnd - Pointer to the first word after the original parameters 

(as an offset from the base of the stack). 

Calls: Appropriate exception handler or HandleAll. 

Design: See the *'PERQ QCode Reference Manual, Q-Machine Architecture" 
for a description of the format of exception enable blocks and the 
format of variable routine descriptors. 

RaiseP searches the exception enable list of each routine in the 
dynamic chain. When it finds one that matches ER and ES it 
searches the dynamic chain again to see if the specified handler 
is already active. If it is active, RaiseP continues searching 
the exception lists and dynamic chain where it left off. This is 
done in order to allow a handler to re-raise the same exception, 
and to prevent unlimited recursion in an exception handler that 
has a bug. 

If an exception handler is found, the original parameters are 
pushed onto the MStack and the handler is called with CALLV. 

If no exception handler is found, HandleAll is called. 
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X3fX RaiseP may not contain any exception handlers. 
X«* RaiseP must be guaranteed to be resident. 
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module FileAccess; 

Abstract: 

Module to handle reading, writing, entering and deleting files 
independent from the directory structure. 

Written by the OIU Spice Group 

Version Number VI. 8 

( xxxxxxxxxx xxxxxxxx) exports ( xxxxxxxxxxxxxxxxxxxxxxxxxxx ) 

imports Arith from Arith; 
imports DisklO from DisklO; 
imports AllocDisk from AllocDisk; 

function Great eSpiceSegment (part it ion : integer; kind : SpiceSegKind) : 

SegID; 
procedure DestroySpiceSegment(id : SegID); 
procedure TruncateSpiceSegment(id : SegID; len : integer); 
procedure ReadSpiceSegment(id : SegID; firstblk,numblks : integer; 

ptr : ptrDiskBuffer); 
procedure WriteSpiceSegment(id : SegID; firstblk.numblks : integer; 

ptr : ptrDiskBuffer); 
procedure IndexClogblk : integer; var indblk,indoff : integer); 

Exception BadLengthden: integer); 

Abstract : 

Raised if try to truncate file to a length < 

Parameters : 

len is bad length 

Exception NotAFile(id: SegID); 

Abstract : 

Raised when an operation is attempted and the SegID passed does 
not seem to be the id for a valid file 

Parameters : 

id is the bad id 
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Procedure Indexdogblk : integer; var indblk,indoff : integer); 

Abstract : 

Find the index block and tlie offset from the top of the block for 
a logical block of a file 

Parameters : 

logBlk - the logical block of the file to look up; may be negative 
indBlk - the logical block number of the index block which holds 

the address for logblk 
indoff - the offset in indBlk to use in reading the address (the 

array index to use in DiskBuffer^.Addr). It is correctly set 

even if the indBlk is the FIBlk 

function CreateSpiceSegmentCpartition : integer; 
kind : SpiceSegKind) : SegID; 

Abstract : 

Create a new empty file on partition specified 

Parameters : 

partition is the partition in which to allocate file; kind is the 
type of segment 

Returns: ID of file created 

Errors: Raises NotAFile if block at id is not a valid FIBlk 

Procedure DestroySpiceSegment(id : SegID); 

Abstract: 

Delete a file 

Parameters : 

id is the Segid of file to delete 

SideEffects: removes id from filesystem 

Errors: Raises NotAFile if block at id does not seem to be a valid 
FIBlk 

Procedure TruncateSpiceSegmentdd : SegID; len : integer); 

Abstract : 

Removes blocks from file to make the new length len 

Parameters : 

id is the SegId of file; len is the new length (one greater than 
the last logical block number since files start at 0) 
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SideEffects: Shortens the file 

Errors: Raises BadLength is length to truncate file to is < Raises 
NotAFile if block at id does not seem to be a valid FIBlk 

Procedure ReadSpiceSegment(id : SegID; firstblk,numblks : integer; 
ptr : ptrDiskBuffer); 

Abstract : 

Reads one or more blocks from file 

Parameters : 

id - the Segid of file; 
f irstBlk - the logical blk # of first to read 
numBlks - the number of blocks to read 
ptr - where the data should be put NOTE: If the blocks 
specified to read don't exist; ptr^ is filled with zeros 

Errors: Raises NotAFile if block at id is not a valid FIBlk 

Procedure WriteSpiceSegment(id : SegID; firstblk,numblks : integer; 
ptr : ptrDiskBuffer); 

Abstract : 

Writes one or more blocks onto file 

Parameters : 

id - the SegId of file; 
firstBlk - the logical blk # of first to write 
numBlks - the number of blocks to write 
ptr - where the data should come from 

SideEffects: Changes the data in the file and may cause new blocks to 
be allocated and file length changed 

Errors: Raises NotAFile if block at id is not a valid FIBlk 
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module FileDefs; 
Abstract: 



Defines some constants and types needed by various people so 
FileSystem doesn't need to import DisklO in its export section 

Written by: Brad A. Myers 3-Mar-81 
Copyright (C) 1981 PERQ Systems Corporation 
Version Number VI. 2 



exports 

Imports GetTimeStamp from GetTimeStamp; {Using TimeStamp} 



const 
DBLZERO 

type 
FSBit8 
FSBitie 
FSBit32 



= nil; {a two word 0} 



= 0..255; 
= integer; 

= "" integer; {will be a long when compiler knows about 
them) 



Const DISKBUFSIZE = 256; {defined by hardware, 256 words per sec) 

type SegID = FSBit32; {In SpiceSeg, the virtual address of the 

-1 block of a file) 
DiskAddr = FSBit32; {The virtual address of a DiskBlock) 



SimpleName 
PathName 



= string[25] ; 
= string[1001; 



{only the filename in the directory) 
{full name of file with partition and 
dev) 

Partial PathName = string[801; {file name including all directories) 
FSOpenType = (FSNotOpen, FSOpenRead, FSOpenWrite, FSOpenExecute); 
FSDataEntry = packed record 



FileBlocks 
FileBits 

FileSparse 
Fi leOpenHow 
FileCreateDate 
FileWriteDate 
FileAccessDate 
FileType 
FileRights 
Fi leOwner 
FileGroup 
Filename 
end; 
ptrFSDataEntry = ^FSDataEntry; 



integer; {Size of file in blocks) 
0..4096; {Number of bits in last 

blk) 
Boolean; {true if can be sparse) 
FSOpenType ; { howOpen ) 
TimeStamp; 
TimeStamp; 
TimeStamp; 

integer; {see FileType. pas) 
integer; {protection code) 
FSBitS; {Userld of file owner) 
FSBit8; {Groupid) 
Partial PathName; 
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module FileDir; 

Abstract : 

The directory structure for PERQ FileSystem 

Written by: CMU Spice Group 

Version Number V2.6 

{ 3e5«e5B«e3«ex5e*9«ex3e3ttBex^ lExport s { xxxxxxxxxxxxxxxxxxxxxxxxxxx^Baexxxx ) 

imports FileDefs from FileDefs; 

function GetFileID(name : PathName) : SegID; 

function PutFileID(var name : PathName; id : SegID) : boolean; 

function DeleteFileID(name : PathName) : SegID; 

function GetDisk(var name : PathName; var partition : integer) : boolean; 

var 
Default Part itionName : SimpleName; (includes device name and ends in 

a %- ) 
DefaultDeviceName : SimpleName; (ends in a colon) 

Function GetDisk(var name : PathName; var partition : integer) : boolean; 

Abstract: 

Given a name, remove the device and partition specification and 
find the partition number 

Parameters : 

name - the full file name to parse; the device and partition are 
optional. The device and partition if there are removed from 
the name string; 

partition - set to the partition specified or the default 
Returns: False if specified device or partition malformed or not there 
SideEffects: Mounts the partition if not already 
Calls: FindPartition, MountPartition 
Function GetFileID(name : PathName) : SegID; 
Abstract : 

Find the SegID for name (does a lookUp) 

Parameters: 

name - the full name (including all directories and optional 
device and partition) of the file to look up 
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Returns: The SegID of the file or DBLZERO if not there or mal-formed 

Calls: ParseFilename, GetRootDirlD, GetlDFromDir 

Function PutFileID(var name : PathName; id : SegID) : boolean; 

Abstract : 

enters name with SegID id into a directory 

Parameters : 

name - the full name (including all directories and optional 

device and partition) of the file to enter; it is changed to 
remove all ">..>- and ->.>**s and remove the device (the name 
returned can be entered in the FilelD block's 
FSData.Filename). 

id - SegID of file; 

Returns: True if file successfully entered; false if device, partition 
or a sub-directory is mal-formed NOTE: XXXIT IS ILLEGAL TO CALL 
PutFilelD FOR A NAME THAT IS ALREADY IN "niEXSHf a»9ff)IRECT0RY BUT 
THIS IS ONLY SOMETIMES CAUGHT IF ATIEMPTEDSBa 

Calls: ParseFilename, (jetRootDirlD, GetlDFromDir, PutlDInDir 

Function Del eteFileID( name : PathName) : SegID; 

Abstract: 

Removes the directory entry for name 

Parameters : 

name - the full name (including all directories and optional 
device and partition) of the file to remove from directory 

Returns: SegID of file removed from Directory or DBLZERO if not there 
or part of name is mal-formed 

Calls: ParseFilename, GetRootDirlD, GetlDFromDir 
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module FiieSystem; 
Abstract : 



Spice Interim File System. 

Written by: Richard F. Rashid 
February 24, 1981 

Copyright (C) 1981 - Carnegie-Mellon University 
Version Number V7.4 



{xxxxxssxiexxxxxxxxxxxx} Exports { 
imports FileDefs from FileDefs; 



s xxxxxx ) 



const 
FSVersion 
BlksPerFile 
FirstBlk 

LastBlk 

FIBlk 
BootLength 



StartBlk 



SysFile 
SEARCHSIZELIST = 6; 



= '7.3'; 

=#077777; 

=0; 

=#077776; 

=-1; 

= 60+128; 



=BootLength; 
= -1; 



File system version number } 

Max blocks in each file } 

Block number of the first data block ) 

in a file ) 

Block number of the last data block ) 

in a file. ) 

Block number of the File Information Block ) 

Size of the bootstrap area on disk— the ) 

first n blocks on the disk, the microcode ) 

boot area is 60 blocks, the Pascal boot ) 

area is 128 blocks (32K). ) 

The block number of the FIBlk of the first) 

user file. ) 

File ID of the system area on disk. ) 

Max number of directories on search list. ) 



( Record for reading disk blocks ) 



DirBlk= Record 

Case Integer Of 
2: ( 

Buf fer: Array [0.. 255] Of Integer 

); 

3: ( 

ByteBuffer: Packed Array [0..511) of FSBit8 
) 

End; 

PDirBlk= "DirBlk; 



FilelD 
BlkNumbers 



= integer; 
= integer; 



SearchList = array [1.. SEARCHSIZELIST! of PathName; 
ptrSearchList = ^SearchList; 



var 



FSDirPrefix: PathName; (current default directory including device and 

part) 
FSSysSearchList: SearchList; 
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function FSLookUp(FileNaiDe:PathName;Var BlklnFile.BitsInLBlk: Integer): 
FilelD; (uses current system search list} 

function FSLocalLookUpCFileNameiPathName; Var BlkInFile,BitsInLBlk: 
Integer): FilelD; {doesn't use any search lists) 

function FSSearch(var slist : SearchList; var FileName : PathName; 

var BlklnFile, BitsInLBlk: integer) : FilelD; 

{uses specified search list instead of system one; is 
var so no copying; changes FileName to be full 
filename actually used) 

function FSEnterCFileNaroe: PathName): FilelD; 

procedure F9Close(UserFile:FileID; Blks, Bits: Integer); 

procedure FSBlkRead(UserFile:FileID; Block:BlkNumbers; Buff:PDirBlk); 

procedure FSBlkWrite(UserFile:FileID; Block:BlkNumbers; Buff :PDirBlk); 

procedure FSInit; 

procedure FSMountCdisk : integer); 

procedure FSDismount(disk : integer); 

procedure FSSetPrefixCprefixname : PathName); {FSSetPrefix just assigns 

the vble; use 
FileUtils.FSSetPath to do 
processing on new path) 

procedure FSGetPrefixCvar prefixname : PathName); 

function FileIDtoSegID(id : FilelD) : SegID; 

function SegIDtoFileID(id : SegID) : FilelD; 

procedure FSSetupSystem( boot char: integer); 

procedure FixFilenaroe(var filename : PathName; nulliserror : boolean); 

Function FSIsFSDev(name: PathName; var devName: String): integer; 

Exception FSNotFndiname: PathName); 

Abstract : 

Raised if file looked up is not found. If this exception is not 
handled by client, the lookup or search will return zero 

Parameters : 

name is the name not found 

Exception FSBadNameCnaroe: PathName); 

Abstract : 

Raised if file entered is illegal because: 1) the device or 
partition specified is not valid 2) a directory name specified 
does not exist 3) the length of the simpleName is > 25 characters 
If this exception is not handled by the client, the Enter will 
return zero 

Parameters : 

name is the name that is illegal 

Function FSInternalLookUp(FileName: PathName; Var 
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BlklnFile.BitsInLBlk: Integer): 
FilelD; 

Exception FSDirClose; 

Abstract: 

Raised if attempt to FSClose a directory file. This is usually a 
bad idea since directories are spare files with an invalid length 
field. 

RESUME: Allowed. Will close the file as if nothing had happened. 

const 
FSDebug = false; 

Function SegIDtoFileID(id : SegID) : FilelD; 

Abstract : 

Convert a two word Segid into a one word filelD 

Parameters : 

id is a two word segID 

Returns: A one word FilelD; it may be pos or neg or zero 

Function FileIDtoSegID( id : FilelD) : SegID; 

Abstract : 

Convert a one word FilelD into a two word SegID 

Parameters : 

id is a one word FilelD 

Returns: a two word SegID 

Procedure FSInit; 

Abstract : 

Initializes the FileSystem; call BEFORE FSSetUpSystem; Also 
initialize SegSystem and DirSystem 

SideEffects: Initializes; sets global Initialized to true; sets Prefix 
and Search list to null 



- 109 - 



POS Operating System - Module FileSystem January 16, 1984 

Procedure FixFilename(var filename : PathName; nulliserror : boolean); 

Abstract: 

Makes fileName a full path name by adding as many defaults as 
necessary 

Parameters : 

filename is name to fix; it is modified to have the full path name 

as follows: 

(dev):(rest) - no change 

:(rest) - adds DefaultDevice from AUocDisk to front 

>(rest) - adds Default Part it ion from AllocDisk to front 

(rest) - adds FSDirPrefix to front; if nuUIsError-then no 

change to name if fileName = " else changes " to 

FSDirPrefix 

Errors: allows SllLong to pass through from PERQ_String; This means 
that fileName is invalid 

Procedure FSMount(disk: integer); 

Abstract : 

Mounts the disk specified and prints all partitions 
Parameters : 

Disk is device to mount (0=HardDisk, l=Floppy) 
Calls: DeviceMount and DisplayPartitions 
Procedure FSDismount(disk: integer); 
Abstract : 

Dismounts the disk specified and prints all partitions 
Parameters : 

Disk is device to dismount (0=HardDisk, l=Floppy) 
Calls: DeviceDismount and DisplayPartitions 
Procedure FSSetPrefix(prefixname : PathName); 
Abstract: 

Sets the default pathName 
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Parameters : 

prefixname is new name; no checking is done 
SideEffects: changes FSDirPrefix 
Procedure F9GetPrefix(var prefixname : PathName); 
Abstract : 

Returns the default pathName 
Parameters : 

prefixname is current name; it is set with current value 

Function FSInternalLookUp(FileName: PathName ;Var 

BlkInFile,BitsInLBlk: Integer) iFilelD; 

Abstract : 

Does a lookup of FileName in the current path only. 

Parameters : 

FileName is a filename. BlklnFile and BitsInLBlk are set with the 
number of blocks in the file and the number of bits in the last 
block respectively. 

Returns: if file doesn't exist; else the FilelD of the file 

Errors: This procedure does not raise any errors 

SideEffects: Sets the FileAccessDate of the file 

Calls: FixFileName, GetFilelD, GetTStamp, SeglDToFilelD 

Function FSLocalLookUp(FileName: PathName; Var BlklnFile, 
BitsInLBlk: Integer): FilelD; 

Abstract : 

Does a lookup of FileName in the current path only. 

Parameters : 

FileName is a filename. BlklnFile and BitsInLBlk are set with the 
number of blocks in the file and the number of bits in the last 
block respectively. 

Returns: if file doesn't exist; else the FilelD of the file 
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SideEffects: Sets the FileAccessDate of the file 

Errors: Raises FSNotFnd if file not there (if not caught, then lookup 
returns 0) 

Calls: InternalLookUp 

Function FSSearch(var slist : SearchList; var filename : PathName; var 
blkinfile,bitsinlblk: integer) : FilelD; 

Abstract: 

Does a lookup of FileName straight first and then with each of the 
names in slist on the front. 

Parameters : 

slist - a searchList; any non-" entries are assumed to be paths 
and are put on the front of the filename. The first one to be 
tried is slistEll. The first match is the one used; No checking 
is done on the validity of the entries in slist 

filename - the file to be looked up; it is changed to be the full 
name of the file if found. If fileName is empty then file not 
found. 

BlklnFile and BitsInLBlk - set with the number of blocks in the 
file and the number of bits in the last block respectively. 

Returns: if file doesn't exist in any path; else the FilelD of the 
file 

SideEffects: Sets the FileAccessDate of the file 

Errors: Raises FSNotFnd if file not there (if not caught, then lookup 
returns 0) 

Calls: FSLocalLookUp, Concat 

Function FSLookUpC FileName: PathName; Var BlklnFile, 
BitsInLBlk: Integer): FilelD; 

Abstract : 

Does a lookup of fileName first in the current path and then in 
each of the entries of the system search list. 

Parameters : 

filename is the file to be looked up; BlklnFile and BitsInLBlk are 
set with the number of blocks in the file and the number of bits 
in the last block respectively. 
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Returns: if file doesn't exist in any path; else the FilelD of the 
file 

SideEffects: Sets the FileAccessDate of the file 

Errors: Raises FSNotFnd if file not there (if not caught, then lookup 
returns 0) 

Calls: FSSearch with FSSysSearchList as the sList 

Function FSEnter(FileName:PathName): FilelD; 

Abstract : 

Enters the file in the current path. 

Parameters : 

filename is the file to be entered. It may or may not exist; if 
not exists then is created; 

Returns: if file can't be created because part of its name is invalid 
(e.g. the device, partition or directory specified doesn't exist) 
else the FilelD of the file 

SideEffects: Creates a file if necessary and enters it into the 

directory; if creating, then sets size to zero and create date; 
Sets type to (UnknownFile); whether or not creating; sets 
WriteDate and AccessDate 

Errors: Raises FSBadName if name passed is illegal due to a device, 
partition, or directory name in path not existing or target name 
is longer than 25 characters or illegal in some other way. If 
this exception is not caught. Enter returns zero. 

Procedure FSClose(UserFile:FileID; Blks, Bits: Integer); 

Abstract : 

Closes a file (setting size). 

Parameters : 

UserFile is ID of file to close; Blks is the size of the file in 
blks and bits is the number of bits in the last block; 

SideEffects: Truncates file to size specified; does a FlushAll 

Errors: Raises FSDirClose if attempt to close a directory file. If 
resume from this exception, then closes normally. 
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Procedure FSBlkWrite(UserFile:FileID; BlockrBlkNumbers; Buff:PDirBlk); 

Abstract : 

Writes one block onto a file. 

Parameters : 

UserFile is ID of file to write on Block is number of block to 
write (starting at zero); Buff is buffer holding data to write 
onto the file at Block 

SideEffects: Changes the data of block Block 

Calls: WriteSpiceSegment 

Procedure FSBlkRead(UserFile:FileID; BlockrBlkNumbers; Buff:PDirBlk); 

Abstract : 

Reads one block of a file. If block specified is not part of the 
file then simply zeros the buffer 

Parameters ; 

UserFile is ID of file to read from Block is number of block to 
read (starting at zero); Buff is buffer to copy data into 

Calls: ReadSpiceSegment 

Procedure FSSetupSystem( boot char: integer); 

Abstract : 

Call this after FSInit to set up the system and print a lot of 
messages 

Parameters : 

boot char is ord of key held down to boot 

SideEffects: Mounts device from which booted; Mounts all of its 
partitions Sets AUocDisk's DefaultDeviceName and 
DefaultPartitionName. Sets FSDirPrefix to be root of current 
Partition and adds that path to the bottom of the search list 

Function FSIsFSDev(name: PathName; var devName: String): integer; 

Abstract : 

determine whether name is a file that the filesystem knows how to 
handle 
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Parameters : 

name is a name of a file; devName will be assigned the device name 
IF NOT FSDevice DevName will be in upper case and does NOT contain 
the colon. 

Returns: if name doesn't contain a : or if dev is one the filesystem 
knows about; the index of the colon otherwise 
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module FileTypes; 

This module exports the types put in the FileType field of File FIBs. The 
types are stored as integers. PERQ Systems reserves the first 612 types for 
their use. Customers are encouraged to choose numbers > 512 if they Invent 
new file types 

Written by Brad A. Myers Feb. 2, 1981 

Copyright (C) 1980, 1981, 1982 PERQ Systems Corporation 

Version Number VI. 6 

(WWWWWWWWWWWWW) EXPORTS {/////////////////////////) 



Const 



= 0; 



2 

3 
= 4; 



{for non-Pas text files) 
{cursor bin files) 

{microcode output) 



UnknownFile 
SegFile = 1 
PasFile = 
DirFile = 
ExDirFile 
FontFile = 5; 
RunFile = 6; 
TextFile = 7; 
CursorFile = 8; 
BinaryFile = 9; 
BinFile = 10; 
MicroFile =11; 
ComFile = 12; 
RelFile = 13; 

IncludeFile = 14; {included in a pas file) 
SBootFile = 15; {system part of boot file) 
MBootFile = 16; {microcode part) 

SwapFile =17; {a file used for swapping by compiler or editor; 
not set) 
{created by the scavenger) 
{ Fortran source file ) 

Fortran unformatted data file ) 

Fortran pre-seg file ) 

Fortran external definition file ) 

Fortran library file ) 
{ Created by Temper ) 



length 



BadFile 
ForFile 
DatFile 
PsgFile 
ExtFile 
LibFile 



18 
19 
20 
21 
22 
23 



TempFile = 24; 
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module FileUtils; 

Filesystem utilities not needed by the system 

Written by Brad Myers. March 6, 1981. 

Version Number VI. 12 

{d&xse^9edBe$e%%9e%x^9»»ex) Exports { xxxxxxxxxxx xxxxxxxxx ) 

imports FileSystem from FileSystem; 

type 
ptrScanRecord = ^ScanRecord; 
ScanRecord = record 

InitialCall : boolean; 
Blk : DiskAddr; 
Entry : Integer; 
DirName : PathName; 
end; 

Procedure FSDelete( filename: PathName); 

Function FSScanCscanptr : ptrScanRecord; var name : SimpleName; 

var id : FilelD) : boolean; 
Procedure FSRename(SrcName, DestName: PathName); 
Function FSMakeDi rectory (var DirName: PathName): FilelD; 
Procedure FSSetSearchList(sList: SearchList); 
Procedure FSPopSearchItem(var sList: SearchList); 
Procedure FSPushSearchI tem( name : PathName ; var sLi st : SearchLi st ) ; 
Procedure FSAddToTitleLine(msg: String); {adds as much of msg as possible to 

title line after the current path) 
Exception DelError(FileName: PathName); 

Abstract : 

Raised when can't delete file (because not there) 
Parameters : 

FileName is file that can't delete 
Exception RenError(msg: String; FileName: PathName); 
Abstract : 

Raised when can't rename file 

Parameters : 

msg is reason can't rename and fileName is file with the problem. 
To print message, use 

*'WriteLn( 'XX ',msg,filename);'* 
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Exception MkDirErr(msg: String; dirName: PathName); 

Abstract : 

Raised when can't make a directory because 1) a file named dirName 
already exists 

2) dirName cannot be entered (bad subdir part) 

3) dirName is empty 

4) dirName is ROOT.DR (reserved directory name) 

Parameters : 

fflsg explains problem with makedir attempt; dirName is name 
attempted to use. Use 

''WriteLn( '9» '.msg, dirName);" 

Exception SrchWarn(fileName: PathName); 

Abstract: 

Raised if try to Pop last item or push into last hole of the 
Search List 

Parameters : 

" if Pop; name of item trying to push if Push 

Resume: ALLOWED; if resume then does the operation anyway 

Exception SrchErr(fileName: PathName); 

Abstract: 

Raised if try to Pop empty list or push onto full list for the 
Search List 

Parameters : 

"if Pop; name of item trying to push if Push 

Resume: NOT allowed 

Function FSExt Search (var SList : SearchList; Extensions: String; 

var FileName : PathName; 

var BlksInFile, BitsInLBlk: Integer) : 
FilelD; 
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Exception RenToExistCfileName: PathName); 

Abstract: 

Raised at attempt to rename an existing file. Not raised if 
renaming a file to its own name (no-op). 

Parameters : 

fileName - new name that already exists 

Resume: ALLOWED; If you wish to rename anyway; just continue and 
FSRename will delete the DestName; In this case; you should be 
prepared to accept DelError; 

Exception RenDir( fileName: PathName); 

Abstract : 

Raised when try to rename a directory. 

Parameters : 

fileName - name of the source directory. 

Resume: ALLOWED; If you wish to rename anyway; just continue and 
FSRename will do the operation. RenToExist etc. may still be 
raised. 

Procedure FSC5etFSData(id: FilelD; pData: ptrFSDataEntry); 
procedure FSSetFSDataCid: FilelD; pData: ptrFSDataEntry); 
procedure FSRemoveDots(var fname: PathName); 

Procedure FSDelete( filename : PathName); 

Abstract : 

Deletes filename from directory and filesystem; fileName is 
deleted from the current path only (not search lists) if it 
doesn't contain device or partition info 

Parameters : 

filename is the name of the file to be deleted 

SideEffects: filename is deleted from the current directory if it 

exists; if not then nothing is done (and the user is not notified) 

Calls: DeleteFilelD; DestroySpiceSegment 

Errors: Raises DelError( fileName) if can't delete file 
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Procedure FSRenameCSrcName, DestNaroe: PathName); 

Abstract : 

Changes the name of SrcName to DestName; both are in the current 
path (not search lists) if not fully specified 

Parameters : 

SrcName is the name of the file to change and DestName is the name 
it should be given 

Returns : 

True if rename is successful; false if can't be done because: 

1) - destNaroe already exists 

2) - SrcName and destName are in different partitions 

3) - SrcName doesn't exist 

4) - SrcName or DestName is malformed 

SideEffects: The name of the file corresponding to SrcName is changed 

Calls: DeleteFilelD; DestroySpiceSegment 

Errors: Raises RenError(msg, fileName) - if can't rename file where 
message explains why (do **Write( ' »* ',msg, fileName)** in handler) 
Raises RenToExist( DestName) - if filename already exists; If you 
wish to rename anyway; just continue and FSRename will delete the 
DestName; In this case; you should be prepared to accept DelError; 

Function FSScan(scanptr : ptrScanRecord; var name: SimpleName; 
var id : FilelD): boolean; 

Abstract : 

At each call returns the next entry in a directory. The names 
returned are in random order. 

Parameters : 

scanPtr is a pointer to a ScanRecord which controls the scan. At 
the first call, scanPtr'^.InitialCali should be set to true and 
scanPtr^.dirName should be set to the directory to scan through. 
No fields should be modified by the caller after the initial 
setting. The dirName field of the scanPtr record is modified to 
contain the Full path name of the directory, name is set to the 
name of the file found on this call and id is its filelD; scanPtr 
is modified after each call so the next call will return the next 
name in the directory 

Returns: True if a valid name and id returned; false if the directory 
has been exhausted in which case name and id are NOT valid 
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Function FSMakeDirectory(var dirName: PathName): FilelD; 

Abstract : 

Create a new directory named dirName. 

Parameters : 

DirName is the name of the directory to create; the name is 
changed to be the full path name of the directory created 

Returns: The filelD of the directory 

SideEffects: Creates a file named dirName (appending a **.DR'* to end if 
not there. Sets the FileType field to DirFile; and sets the 
FileBits to 4096 

Errors: Raises MkDirErr(msg, dirName) if 1) a file named dirName 

already exists 2) dirName cannot be entered (bad subdir part) 3) 
dirName is empty 4) dirName is ROOT.DR (reserved directory name) 
where msg describes error. Do not continue from this signal 

Procedure FSSetSearchList(sList: SearchList); 

Abstract : 

Assign the system search list. 

Parameters : 

sList is new search list. It is a bad idea to not include a 
partition which contains a full set of system files 

SideEffects: Changes system search list 

Procedure FSPopSearchItem(var sList: SearchList); 

Abstract : 

Removes the most recent item from the search list 
Parameters : 

sList is search list to pop from (it is modified) 

Errors: Raises SrchWarnC) if try to pop last item; if continue from 
it then pops it anyway; Raises SrchErrC) if list empty and try 
to pop; don't continue from this one 
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Procedure FSPushSearchltemCname: PathName; var sList: SearchList); 

Abstract : 

adds name to the front of the search list 

Parameters : 

name is new name to add to the front of the search list searchList 
is modified to have name at front 

Errors: Raises SrchWarn(name) if try to push into last item; if 

continue from it then pushes it anyway; Raises SrchErr(name) if 
list full and try to push; don't continue from this one 

Environment: Assumes oldest item in list is at high position (e.g. 5) 

Procedure FSAddToTitleLine(msg: String); 

Abstract: 

adds as much of msg as possible to title line after the current 
path which is truncated to 35 characters 

Parameters : 

msg is string to be displayed. The first 43 characters of it are 
displayed 

Side Effects: Changes current window's title line 

Procedure FSGetFSDatadd: FilelD; pData: ptrFSDataEntry); 

Abstract : 

Returns the FSDataEntry description of a file 

Parameters : 

id is the FilelD for the file that data wanted for pData is a 
pointer to a data block to which the FSData is copied. Memory for 
this pointer must be allocated before the call 

Procedure FSSetFSDatadd: FilelD; pData: ptrFSDataEntry); 

Abstract: 

Changes the FSDataEntry of a file 

Parameters : 

id is the filelD of the file to be modified pData is the 
FSDataEntry to set id to. The entire FSDataEntry description of 
id is changed, so the user should use FSGetFSData to read the 
FSDataEntry and then change the desired fields only 
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Side Effects: Changes the FSDataEntry for id 

Function FSExt Search (var SList: SearchList; Extensions: String; 

var FileName: PathName; var BlksInFile, BitsInLBlk: Integer): FilelD; 

Abstract : 

FSExt Search performs a breadth-first lookup of a file using a 
specified searchlist and a list of extensions. The search order 
is as follows: 1) Try the name with each extension in the current 
directory. 2) Repeat steps 1 in each path specified in the 
searchlist. If the file is found, the FileName is changed to be 
the full file name actually found. 

Parameters : 

SList - Searchlist to use. 

Extensions - List of extensions to try with a single space after 
each extension. For example, '.Pas .Micro .Cmd .Dfs '. The 
string must have a single trailing space. A single leading 
space or a pair of adjacent spaces causes the function to 
look for the file exactly as typed (no extension appended). 
Extra spaces are not allowed. If Extensions does not end in 
a space, then one is added. 

FileName - Name of file to find, set to be the full name of 
the file that was actually found. 

BlksInFile - Length of file in blocks. 

BitsInLBlk - Bits in last block of file. 

Returns: if file not found or id of file 

Errors: Raises FSNotFnd if file not found 
Procedure FSRemoveDots(var fname: PathName); 
Abstract: 

Removes **.*'s and -..*'s from file name leaving full name 
Parameters : 

fname is file name. It is changed to not have dots. 
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module FTPUtils; 

File Transfer Program - Code. 

Copyright (C) 1980, 1981, 1982 
PERQ ^sterns Corporation 

Abstract : 

This file contains the code portions for the File Transfer 
Program. 

Version Number V6.4 

{ »xiexxxjexxxxx3$xxxxxxx } Exports { x xxxxxxxxxxxxxx aaaexx ) 

imports EtherlOIO from EtherlOIO; 

Type 

FTPPacket = Record 
Cmd: Char; 
ByteCount: Integer; 
Checksum: Integer; 
Case Inteser Of 

1: (Buffer: Packed Array [0..255) of Char); 

2: (ErrMsg: String); { Byte is length 

byte ) 
3: (SrcFile: String; 

DestFile: String); 
4: (Name: String); 
5: (Add: EtherAddress ) ; 
End; 

ErrStatus = (OK, TimeOut, ChkSumErr, RawIOErr); 

TransMode = (PERQPERQ. PERQll, PERQVAX); { Tells what machines ) 

{ are involved in the 
transfer ) 

BytelntRecord = Packed Record 

Case Integer Of { Used to get low order } 

1: (Whole: Integer); ( byte for checksums ) 

2: (Lower: 0..256; 
Upper: 0*.265); 
End; 

DevTypes = (RS232, FastEther, EtherNet); { Valid transfer 

defives ) 

Function FTPGetFile(SrcFile,DestFile: String; IsItText:Boolean; 

Dev: DevTypes; Mode: TransMode): Boolean; 
Function FTPPutFile( SrcFile. DestFile: String; IsItText:Boolean; 

Dev: DevTypes; Mode: TransMode): Boolean; 
Procedure FTPChkDev(Dev: DevTypes); 
Procedure SendStopVax; 
Procedure FTPInit; 
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Function FTPAddRequest(Name: String; Dev: DevTypes): Boolean; 
procedure FTPSetMyAddr(Dev: DevTypes); 
procedure FTPQuitNet; 

var MyAddr, HisAddr: EtherAddress; 

CONST 

MAXALIAS = 10; 

VAR NumAlias : 0. .MAXALIAS; 

Var MyName: Array [1.. MAXALIAS] Of String; 
HisName : String; 

const FastEType = 1; 
ByteType = 0; 

const MaxRecv = 4; 

procedure FTPQuitNet; 

Abstract : 

Shut down the net, if needed. 

Procedure SendStopVax; 

Abstract : 

This procedure is used to send a StopVax packet. 

Function FTPAddRequest(Name: String; Dev: DevTypes): Boolean; 

Abstract : 

Send a request for an address out on the net. 

Parameters : 

Name is the name that we are to get the address for. 

Dev is the device to use for the transfer. 

Parameters : 

Return true if we could get the address. Return false otherwise. 
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Procedure FTPInit; 

Abstract : 

This procedure is called to initialize the FTP code. 

Side Effects: This procedure will initialize the I/O devices for the 
machine that it is running on. 

Errors: None 

Function FTPPutFile(SrcFile,DestFile: String; IsItText:Boolean; Dev: 
DevTypes; Mode: TransMode): Boolean; 

Abstract : 

This is the interface routine that will write a file to another 
machine. 

Parameters : 

SrcFile is the name of the file, on this machine, that we are to 
write. 

DestFile is the name that is to be used when writing the file on 
the other machine. 

IsItText is a boolean that indicates if the file is a text file. 
If true then the file is a text file. 

Dev is the name of the device that we are to use to transfer the 
file. 

Mode indicates the type of machine that is on the other end of 

Dev. 

Results: Return True if the file was transfered without error. False 
otherwise. 

Side Effects: This procedure will change: CurDevice and Curlliode. 

Errors: All errors are indicated by error messages. 

Function FTPGetFile( SrcFile, DestFile: String; IsItText :Boolean; 
Dev: DevTypes; Mode: TransMode): Boolean; 

Abstract : 

This is the interface routine that will read a file from another 
machine. 

Parameters: 

SrcFile is the name of the file that we are to read from the other 
machine. 
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DestFile is the name that is to*be created on this machine. 

IsItText is a boolean that indicates if the file is a text file. 
If true then the file ic a text file. 

Dev is the name of the device that we are to use to transfer the 
file. 

Mode indicates the type of machine that is on the other end of 
Dev. 

Results: Return True if the file was transfered without error. False 
otherwise. 

Side Effects: This procedure will change: CurDevice and Curlltode. 

Errors: All errors are indicated by error messages. 

procedure FTPSetMyAddr(Dev: DevTypes); 

Abstract: 

Set the address of this machine and allocate ethernet buffers. 

Parameters : 

Dev is the current device. It must be Ethernet or FastEther. 

Procedure FTPChkDev 

Abstract: 

This procedure is used to see if the device specivied by Dev need 
to be serviced. If so then enter the service request routine. 

Side Effects: This procedure may change CurChar and CurCharValid. 

Errors: None 
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module GetTimeStamp; 

GetTimeStamp - Perq get time routine. 

J. P. Strait 1 Feb 81. 

Copyright (C) PERQ Systems Corporation, 1981. 

Abstract: 

GetTimeStamp implements the read-time-as-TimeStamp function for 
the Clock module. See the Clock module for more details. 

Design: GetTimeStamp is a separate module so that it may be 
imported into the resident system without importing all the other 
Clock routines. Once virtual memory is implemented, GetTimeStamp 
and Clock should be merged into a single module. 

Version Number VI. 4 

{/////////////////////////) Exports {WWWWWWWWWWWW) 

const GetTSVersion = "1.4'; 

type TimeStamp = packed record 

{ the fields in this record are ordered this way to optimize bits ) 

Hour: 0..23; 

Day: 1..31; 

Second: 0..59; 

Minute: 0..59; 

Month: 1..12; 

Year: 0..63; { year since 1980 ) 

end; 

TimeReference = record 

Lower: Integer; 
Upper: Integer 
end; 

procedure GetTStamp( var Stamp: TimeStamp ); 

var PastStamp: TimeStamp; 
Past: TimeReference; 

procedure GetTStamp( var Stamp: TimeStamp ); 

Abstract : 

returns a timeStamp for the current time 
Parameters : 

Stamp is set to be the stamp for the current time 
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module gpib; 
Abstract : 



Support routines for PERQ GPIB devices. The package maintains a 
buffer (gpCommandBuffer) which holds either data bytes (sent with 
procedure gpPutByte) or Auxiliary commands (sent with 
gpAuxCommand). The buffer is sent to the 9914 when full, or when 
gpFlushBuffer is called. If the buffdr has data bytes when 
gpAuxCommand is called, it will do a gpFlushBuffer. Similarly, 
when gpPutByte is called, it will flush the buffer, if auxiliary 
commands are in gpCommandBuffer. 

written by Brian Rosen 

Copyright (C) 1980, PERQ Systems Corporation 



Version Number VI. 5 



exports 



const 



GpibVersion = '1.6'; 

gpBufSize =12; 

gpBufMax =11; {gpBufSize 



- 1) 



{ the followi 
they are is 
gpacg = 
gpdcl = 
gpget = 
gpgtl = 

gplag = 
gpllo = 
gpmla = 
gpmta = 
gpmsa = 
gpppc = 
gpppe = 
gpppd = 
gpppu = 
gpscg = 
gpsdc = 
gpspd = 
gpspe = 
gptct = 
gptag = 
gpuag = 
gpunl = 
gpunt = 



ng codes are the IEE488-1975 Controller Command Codes 



sued by 
#000 
#024 
#010 
#001 
#040 
#021 
#040 
#100 
#140 
#005 
#140 
#160 
#025 
#140 
#004 
#061 
#060 
#011 
#100 
#020 
#077 
#137 



the Control ler-In-Charge while asserting ATN 

addressed group command) 

device clear) 

group execute trigger) 

go to local) 

listen address group) 

local lockout) 

my listen address) 

my talk address) 

my secondary address) 

paral lei pol 1 conf i gure ) 

parallel poll enable) 

parallel poll disable) 

parallel poll unconfigure) 

secondary copmmand group) 

selected device clear) 

serial poll disable) 

serial poll enable) 

take control) 

tahk address group) 

universal address group) 

unlisten) 

untalk) 



type { these commands are the major state change control commands 
of the B1S9914 chip which forms the interface to the GPIB 
Consult the TI documentation on the 'n!S9914 for more information) 

{These definitions are order dependent) 
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gpAuxiliaryCommands = (gpswrst, {Chip Reset} 

gfxlacr, (Release DAC holdoff ) 

gprhdf, {Release RFD holdoff) 

gphdfa, {Holdoff all data) 

gphdfe, {Holdoff on End) 

gpnbaf, {Set NewByteAVa liable false) 

gpfget, {Force Group Execute Trigger) 

gprtl, {Return to Local) 

gpfeoi, {force End or Identify) 

gplon, {Listen Only) 

gpton, {Talk Only) 

gpgts, {GoTo Standby) 

gptca, {Take Control Asynchronously) 

gptcs, {Take Control Synchronously) 

gprpp, {Request Parallel Poll) 

gpsic, {Set Interface Clear) 

gpsre, {Set Remote Enable) 

gprqc, {Request Control) 

gprlc, {Release Control) 

gpdai, {Disable All Interrupts) 

gppts, {Pass Through next Secondary) 

gpstdl, {Set Tl Delay) 

gpshdw); {Shadow Handshake) 

gpParmType = (gpOff, gpOn, gpDontCare); {parameters for Aux 

Commands ) 

gpByte = 0..255; {Data byte for gpib transactions) 

gpRange = C.gpBufMax; 

gpDeviceAddress = 0..31; {legal addresses for devices on 

GPIB) 

gpBuffer = packed array [gpRangel of gpByte; 

gppBuffer = ^gpBuffer; 

var gpCommandBuffer; gppBuffer; {place to put commands) 

gpBuf Pt r : 0. , gpBufMax ; { po i nter to gpCommandBuffer ) 
gpHaveDataBytes , gpHaveAuxiliaryCommands: boolean; {true if buffer 

in use) 
The package maintains a buffer (gpCommandBuffer) which holds 
either Data bytes (sent with proceedure gpPutByte) 
or Auxialiary Commands (sent with gpAuxCommand) 
The buffer is sent to the 9914 when full, or when ghForceBuffer 
is called. If the buffer has data bytes when gpAuxilairyCommand is 
called, it will do a gpForceBuffer. Similarly, when gpPutByte 
is called, it will force the buffer if auxiliary commands are in 
gpCoimnandBuffer ) 



{ Initialze GPIB package, called once only, turns off tablet ) 
procedure gplnit; 

{ Send an auxiliary command to BIS9914 
some commands require a parameter (gpOff/gpOn) ) 

procedure gpAuxCommand (gpCmd: gpAuxiliaryCommands; gpParm: gpParmType); 

{ Put a data byte or a Control byte out on the data bus 
1^39914 must be in Controller Actives State if the byte is a 
controller command byte. Must be in Talk Only if a data byte ) 
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procedure gpPutByte(gpData: integer); 

{ Sends all bytes in buffer } 

procedure gpFlushBuffer; 

{ Set TMS9914 to be a Talker, set a device to be a listener 
This procedure takes control of the bus, unlistens and untalks 
all devices (including itself), and sets a listener with 
MyListenAddress then sets BIS9914 to be the talker with 
TalkONly ) 

procedure gpITalkHeLi stens (gpAddr: gpDeviceAddress ) ; 

{ Set 'mS9914 to be a Listener, set a device to be a talker 
This procedure takes control of the bus, unlistens and untalks 
all devices (including itself), and sets a talker with 
MyTalkAddress then sets 'I11S9914 to be the listener with 
ListenONly} 

( turn the BitPad back on again ) 
procedure gpTbltOn; 

{ turn the BitPad (device addres #10) off ) 
procedure gpTbltOff; 

{ Send a buffer of user data to the 9914 ) 
procedure gpSend(var gpBuf: gppBuffer; gpCount: gpRange); 

(Get a buffer of data from the 9914 (Not implemented yet) } 
procedure gpReceive( var gpBuf: gppBuffer; gpCount: gpRange); 

{ Get a byte of data from the GPIB ) 
function gpGetByte: gpByte; 
procedure gpCleanup; 

{ cleans up after the GPIB package, turns the tablet backon ) 

exception GPIBerror( Soft Status: integer); 

Abstract: 

Raised when GPIB encounters an error indication in soft status from 
Unit 10 or ICX^Read. The condition should be corrected and the 
operation retried. The most likely error is a timeout: lOETIM (See 
lOErrors ) . 
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procedure gpFlushBuffer; 

var 

address: double; 

begin 

if gpHaveAuxiliaryCommands 

then GPB_UnitIO( Recast(gpCoinmandBuffer.IOBufPtr), lOWriteRegs 

, gpBufPtr, gpStatPtr) 

else if gpHaveDataBytes 

then GPB UnitIO( Recast(gpCoinmandBuffer,IOBufPtr), lOWrite 

, gpBufPtr, gpStatPtr) 

else gpStatPtr". SoftStatus := lOEIOC; 

gpHaveAuxiliaryCommands := false; 
gpHaveDataBytes := false; 
gpBufPtr ;= 0; 

if gpStatPtr". SoftStatus o lOEIOC 

then raise GPIBerror(gpStatPtr".SoftStatus); 

end; 
procedure gpITalkHeListens(gpAddr: gpDeviceAddress); 
begin 

gpAuxCommand(gptca,gpDontCare); {take over bus) 
gpAuxCommand(gpton,gpOff); {I am not a talker) 
gpAuxCommand(gplon,gpOff); {I am not a listener) 

gpPutByte(gpunl); (unlisten all devices) 

gpPutByte(gpunt); {untalk all devices) 

gpPutByte(gpmla+gpAddr); (set MyListenAddress) 

gpAuxCommand(gpton,gpOn); {I will become a Talker) 
gpAuxCoramand(gpgts,gpOn); (Go to it) 
gpFlushBuffer; 

end; 

procedure gpCleanup; 

begin 

if (TypePointDev = TheGPIBBitPad) 
and (gpTabMode o OffTablet) 
then IOSetModeTablet( gpTabMode ) 
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mcxiule Helper; 

WJHansen Jan 82. 

Copyright (C) PERQ Systems Corporation. 1982. 

Abstract : 

Reads an index file and presents options for assistance to the 
user. 

Version Number VI. 4 

exports 

imports FileDefs from FileDefs; {for PathName) 

procedure GiveHelpCFName: PathName); 

procedure G i veHe 1 p ( FName : PathName ) ; 

Abstract : 

Reads a help index and displays it. Lets user ask for information 
on topics in the index and displays the files containing those 
topics. 

Parameters : 

FName - Name of the file containing the index. The path to this 
file is used as the path to the individual help files. 
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module IXlock; 

IXlock - 'Private' Clock type and variable declarations - available 
to the 10 subsystem. Clock routines. 

Copyright (C) 1982, PERQ Systems Corporation 

Abstract: 

lOClock exports variables, constants, and procedures the 10 
subsystem uses to do Clock 10. 

Version Number V0.2 

{ d^^xxxxxxxxxxx^xxxxaex^e^eaBeaex^ex ) Exports { xxx xx xx xxxxx xxxxxxxxxxxxxxxxx } 



lOBufPtr; 
lOCommands ; 
integer; 
lOStatPtr ); 



imports IO_Unit from IO_Unit; 

procedure Clk Initialize; 
procedure ClkIUnitIO( Bufr 

Command 

ByteCnt 

StsPtr 
procedure C 1 k_I nt errupt ; 

procedure CI k_I nt errupt ; 

procedure Clk^Initialize; 

procedure Clk UnitIO( Bufr : lOBufPtr; Command : lOCommands; ByteCnt : 
integer;"StsPtr : lOStatPtr ); 
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module lODisk; 



lODisk - Contains Disk lOUnit Function for EIO and CIO Disks. TV. 

'Private' HardDisk type and variable declarations - available 
to the 10 subsystem. Disk routines. AGR. 

Copyright (C) 1982, 1983 PERQ Systems Corporation 

Abstract : 

lODisk exports variables, constants, and procedures the 10 
subsystem uses to do disk 10. 



SVersion V0.6 for POS} 



5Be3Be5BeXX3e3e3e3e5S3e3e363B9e363«Be5eX3«EXX} Exports { x xx xxx xx xxxxxxxx xxxx xxxxx x xxx } 

mports IO_Unit From IO_Unit; 



Procedure Dsk_Interrupt; 

Procedure Dsk_I n i t i al i ze ; 

Procedure Dsk UnitIO( Unit 

Bufr 
Command 
ByteCnt 
DskAdr 
HdPtr 
StsPtr 



UnitRng; 

lOBufPtr; 

lOCommands ; 

Integer; 

Double; 

lOHeadPtr; 

lOStatPtr ); 
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module lOErrMessages; 
Abstract : 

This module exports a procedure to return an error string for a 
disk error 

Written by : Brad A. Myers May 12, 1981 
Copyright (C) 1981 - PERQ Systems Corporation 
Version Number VI. 5 

{//////////////////////////) EXPORTS {\\\\\\\\\\\\\\\\\\\\\\\} 

Function IOErrString(err: integer): String; 
Function IOErrString(err: integer): String; 
Abstract : 

Returns a string describing the error number 
Parameters : 

err is the error number returned by UnitIO 
Returns: A string describing the error 



- 138 - 



POS operating System - Module lOErrors 



January 16, 1984 



module lOErrors; 
Abstract: 



I/O System Error Code Definitions 

Copyright (C) 1981,1982.1983 - The PERQ Systems Corporation 
Version Number VI. 8 



exports 

Imports SystemDefs from SystemDefs; {using EtherSMBaud} 



Const 



lOEIOC = 1; 
lOEIOB = 0; 
lOEBUN = -1; 
lOENBD = -2; 
lOEWRF = -3; 
lOEBSE = -4; 
lOEILC = -5; 
lOENHP = -6; 
lOEADR = -7; 
lOEPHC = -8; 
lOELHC = -9; 
lOEDAC = -10 
lOEDNI = -11 
lOEUDE = -12 
lOENCD = -13 
lOECBF = -14 
lOELHS = -15 
lOELHB = -16 
lOECOR = -17 
lOEDNR = -18 
lOEMDA = -19 
lOEMHA = -20 
lOEDNW = -21 
lOECMM = -22 
lOESNF = -23 
lOEOVR = -24 
lOEUEF = -25 
lOESOR = -26 
lOETIM = -27 
lOEFRS = -28 
lOEDRS = -29 
lOETO = -30 
lOECDI = -31 
lOERDI = -32 
lOEBAE = -33 
lOENOC = -34 
lOEABN = -35 
lOELHE = -36 
lOESME = -37 
lOESKE = -38 



10 Complete ) 

10 Busy ) 

Bad Unit Number ) 

Raw Block 10 to this device is not implemented ) 

Write Failure } 

BlockSize Error ) 

Illegal Command for this device ) 

Nil Header Pointer } 

Address Error ) 

Physical Header CRC Error } 

Logical Header CRC Error ) 

Data CRC Error ) 

Device Not Idle } 

Undefined Error! } 

Device is not a character device ) 

Circular Buffer Full ) 

Logical Header SerialNum Mismatch ) 

Logical Header Logical Block Number Mismatch ) 

Cylinder Out of Range } 

Device not ready ) 

Missing data address mark ) 

Missing header address mark ) 

Device not writable ) 

Cylinder mis-match ) 

Sector not found ) 

Overrun ) 

Undetermined equipment fault } 

Sector out of range ) 

Time out error ) 

Floppy recalibrate done ) 

Disk recalibrate done ) 

Can't find track zero ) 

Data supplied to configuration command is bad } 

Register data for WriteRegs command is bad ) 

Buffer alignment error } 

Not on Cylinder ) 

Abnormal Error ) 

Logical Header Mismatch } 

State Machine Error ) 

Drive Seek Error ) 
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lOEFLT = -39 
lOEDNS = -40 
lOEPHM = -41 



{fife Ether3MBaud then} 

lOEPTL = -42; 
{ lendc } 

lOEEND = -43; 
lOEFRA = -44; 
lOEPAR = -45; 

lOEFirstError = -45; 

lOELastError = 0; 



{ Drive Fault ) 

{ Device not supported } 

{ Physical Header Mismatch } 



{ Ether3 - received packet too large ) 



( End of data ) 
{ Framing error ) 
{ Parity error ) 
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module lOFloppy; 

lOFloppy - Floppy 10 routines. 

Copyright (C) 1982, 1983 PERQ Systems Corporation 

Abstract : 

lO^Floppy exports procedures to perform 10 on the floppy. 

Design: 1) Unit 10 must increment and decrement the IXount of the 
segments which are involved in 10. 2) Segment faults must XneverX 
happen while interrupts are off. 

Version Number V0.6 

{ ^xxxx^ae^xx^^exxxxxxsexsHex^^xx ) Exports 

Imports IO_Private from IO_Private; 

Procedure FLP Initialize; { Floppy Initialization ) 
Procedure FLP'lnterrupt; { Floppy interrupt handler } 
Procedure FLP'UnitlOC { Floppy UnitIO routine ) 

Bufr: lOBufPtr; 

Command: lOCommands; 

ByteCnt: Integer; 

LogAdr: Double; 

StsPtr: lOStatPtr); 

Procedure FLP PutStatus( { Set status on device Unit ) 

var StatBlk: DevStatusBlock); 
Procedure FLP GetStatus( { Read status on device Unit ) 

var StatBlk: DevStatusBlock); 

Procedure FLP^Initialize; { Floppy Initialization ) 
Procedure FLP_Interrupt; 
Abstract : 

Floppylntr handles a floppy interrupt. If the handler is waiting 
for an interrupt The interrupt cause is read and cleared. The 
Interrupt and Attention causes are held for the low level handler 

If the interrupt is an attention then the current cylinder is set 
to -1 to force a seek on the next operation. 
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module lOGPIB; 

lOGPIB - 'Private' GPIB type and variable declarations - available 
to the 10 subsystem. GPIB routines. 

Copyright (C) 1982, 1983, PERQ Systems Corporation 

Abstract: 

lOGPIB exports variables, constants, and procedures the 10 
subsystem uses to do GPIB 10. 

Version Number V0.7 

{ xxxxxxxxxxxxxxxxxxxxxxxxxxxxx } Exports { xxxxxxxxxxxxx xxxxxxxxxxxx x xxx ) 

imports IO_Unit from IO_Unit; 



const { Fudge factors for BitPad } 
GPIBxFudge = 38; { actual range in X and Y for BitPad: 0..2200 ) 

0..1100 ) 

0..1100 ) 

-38.. 1062 limited to 0..767 } 



GPIByFudge = 1061; { of TabABsX 

{ of TabAbsY 



{ of TabRelX 
{ of TabRelY 



1061.. -39 limited to 1023.. } 



{ Update tells us if the puck was lifted off the pad. Our interrupt routine 
clears it everytime it gets data from the gpib. The tablet update routine 
adds one to it everytime it updates the tablet values. If the tablet 
update routine finds that we haven't set it to zero after a couple of 
times, it assumes the puck is off the bad. Tablet update is in lOVideo. ) 

var 
GPIBTabBuf : packed record 

X : integer; 

Y : integer; 

Buttons : integer; 

Update : integer 

end; 
GPIBTabletState : integer; 
GPIBIntMask : integer; { the interrupt mask for the gpib } 

procedure GPB_Interrupt; 

procedure GPB_I n i t i a 1 i ze ; 

function GPB~ReadCharC var Ch : char ): integer; 

function GPB_WriteChar( var Ch : char ): integer; 

procedure GPB_UnitIO( Bufr 

Command 

ByteCnt 

LogAdr 

StsPtr 



lOBufPtr; 
lOCommands ; 
integer; 
Double; 
lOStatPtr ); 



procedure GPB_GetStatus( var StatBlk : DevStatusBlock ); 



- 142 - 



POS Operating System - Module lOGPIB January 16, 1984 

procedure GPB_Interrupt; 

Abstract: 

GPB^Interrupt handles an interrupt from the GPIB. 

procedure GPB_I n i t i a 1 i ze ; 

Abstract : 

Initialize the GPIB. 

function GPB_ReadChar( var Ch : char ): integer; 

Abstract : 

Do character reads from the GPIB 

function GPB_WriteChar( var Ch : char ): integer; 

Abstract: 

Do one character writes to the GPIB. (Use GPB.UnitIO) 

procedure GPB UnitIO( Bufr : lOBufPtr; Command : lOCommands; ByteCnt : 
integer ;~LogAdr : Double; StsPtr : lOStatPtr ); 

Abstract : 

Do 10 to the GPIB 

Notes The LogAdr is a count of the number of jiffies to wait 
before timing out an operation and resetting the GPIB. It is 
recast into a long. 

procedure GPB_GetStatus( var StatBlk : DevStatusBlock ); 

Abstract : 

Provide status information about the GPIB. This is here only to 
provide compatibility with the old system. The recommended way to 
get status information is to use UnitIO and the lOSense command. 
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iDodule lOKeyboard; 

lOKeyboard - Keyboard 10 routines. 

Copyright (C) 1982, 1983 PERQ Systems Corporation 

Abstract: 

lOKeyboard exports procedures to perform 10 on the keyboard. 

Version Number V0.4 

{ ?BHBeXXXXXXXXXXXXXXXXX3€XXXXXXXXX ) Exports 

{ XXXX XX XXXXXXXXXXXXXX H XXXXXXX ) 

Imports IO_Private from IO_Private; 

Const 

CtrlC = chr(#3); 

CtrlS = chr(#23); 

CtrlQ = chr(#21); 

BlamCh = Chr(#303); { untranslated shift-control-C ) 

DumpCh = Chr(#304); { untranslated shift-control-D ) 

var 
KTBuf : CirBufPtr; { Keyboard translated buffer ) 

procedure Key_I n i t i a 1 i ze ; 

Function Key_ReadChar( Unit : UnitRng; var Ch: char): integer; 

{ disable/enable keyboard interrupts ) 

Procedure Key_Disable( var OldKeyEnable: Boolean ); 
Procedure Key~Enable( OldKeyEnable: Boolean ); 

Procedure Key_Clear; { clear the 10 type-ahead buffer ) 

Procedure Key_Interrupt; 

Function Key_TLate(Ch : Char): Char; 
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procedure Key_I n i t i al i ze ; 
Abstract : 

Keyboard initialization logic. 

Function Key_TLate(Ch : Char): Char; 

Abstract : 

Translate a raw key board character. 

Parameters : 

Ch- The character to be translated. 

Returns: A valid ascii (less than #200) character. 

Function Key_ReadChar( Unit : UnitRng; var Ch: char): integer; 
Abstract : 

Reads a character from keyboard and returns a completion or error 
code. 



Parameters : 

Ch - character to read. 



Returns : 

A condition code as defined in the module lOErrors. 

Procedure Key_Interrupt; 

Abstract: 

Key Interrupt processes KeyBoard interrupts by copying characters 
from the KeyBoard buffer into the (misnamed) translated keyboard 
buffer (KTBuf). Control-C, Control -Sh if t-C, Control -Sh if t-D, 
Control -S, HELP and Control -Q are processed also. 
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procedure Key_Disable( var OldKeyEnable: Boolean ); 

Abstract : 

Key_Di sable is used to disable keyboard interrupts. This is used 
to delay processing of control -c, control -sh if t-c and 
control -sli if t-d at critical times. The old value of the keyboard 
interrupt enable is returned and must be passed back to 
Key_Enable when re-enabling keyboard interrupts. Characters typed 
while keyboard interrupts are disabled are remembered. When 
keyboard interrupts are re-enabled, the characters are processed. 

Parameters : 

OldKeyEnable - set to the old value of the enable. 

procedure Key_Enable( OldKeyEnable: Boolean ); 

Abstract : 

Key_Enable is used to enable keyboard interrupts. The old value 
of the keyboard interrupt enable (as returned from Key_Di sable) 
must be passed to Key_Enable when re-enabling keyboard interrupts. 
If characters were typed while keyboard interrupts were enabled, 
Key_Enable calls Key_Interrupt to process those characters. The 
master interrupt control (INTON and INTOFF QCodes) must be on when 
this procedure is called. 

Parameters: 

OldKeyEnable ~ the old value of the enable. 

procedure Key_Clear; 

Abstract : 

Key^Clear clears the keyboard type-ahead buffer. 
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module lOPointDev; 

lOPointDev - 'Private' PointDev type and variable declarations; 
available to the 10 subsystem. PointDev routines. 

Copyright (C) 1982, 1983 PERQ Systems Corporation 

Abstract: 

lOPointDev exports variables, constants, and procedures the 10 
subsystem uses to do PointDev 10. 

Version Number V0.4 

{5«e5«5X5eX3f3e353e»XX9Bf**»X5e»58Be^ Exports { xx x xx xxxxxxxxxxxxxxxxxxxxxxxx ) 

imports IO_Unit from lO^Unit; 

const { Fudge factors for Kriz Tablet ) 
KrizXFudge = 64; { actual range of X is 0..895, of Y is 0..1161 ) 
KrizYfudge = 1087; { of TabAbsX : 0..895, of TabAbsY : 0..1151 ) 

{ of TabRelX : -64.. 831 limited to 0..767 ) 
{ of TabRelY : 1087.. -64 limited to 1023.. ) 

type 

pPointBuf = ^PointBuf; 

PointBuf = packed record 
XPos: integer; { X position of the pointer ) 
YPos: integer; { Y position of the pointer ) 
Buttons: integer; { indicates which buttons are pressed } 
Filler: integer; { so micro code's area is quad word 

aligned ) 
UCodeArea : packed array 10. .31 of integer 
end; 

{ On the buttons, the least significant bit indicates that the rightmost 
button is pressed. The next bit indicates that the middle button is 
pressed. The third bit indicates that the leftmost button is pressed. 
Bit seven indicates that the puck is off the pad. ) 

var 
Krizlnfo : pPointBuf; 

procedure Ptr Initialize; 

procedure Ptr~PutStatus( var StatBlk : DevStatusBlock ); 

procedure Ptr"GetStatus( var StatBlk : DevStatusBlock ); 



procedure Ptr_UnitIO( Bufr 

Command 
ByteCnt 
StsPtr 

procedure Ptr_Interrupt; 

procedure Ptr_Interrupt; 

Abstract : 



lOBufPtr; 
lOCommands ; 
integer; 
lOStatPtr ); 



Handles PointDev interrupts, these will be the only responses for 
commands issued to the tablet. 
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procedure Ptr_Initiali2e; 

Abstract : 

Prepare for 10 to the PointDev. Determine if tablet is connected 
by enabling it for a short while for it to send current 
coordinates. If no data is received within a short time, flag the 
tablet as not being connected. 

procedure Ptr_PutStatus( var StatBlk : DevStatusBlock ); 

Abstract: 

Put a staztus to the PointDev, otherwise known as the KrizTablet. 
The tablet can only be enabled or disabled. 

Parameters : 

StatBlk - address of status block 
procedure Ptr_GetStatus( var StatBlk : DevStatusBlock ); 
Abstract: 

Get status from the PointDev. 
Parameters : 

StatBlk - address of status block 

procedure Ptr_UnitIO( Bufr : lOBufPtr; 

Command : lOCommands; ByteCnt : integer; 

StsPtr : lOStatPtr ); 

Abstract: 

Execute lOSense and lOConfig commands for lOPointDev. 
Parameters : 

Bufr - buffer for data transfers, if requested 
Command - operation to be performed on the device 
ByteCnt - number of bytes to be transferred 
StsPtr - resultant status from the operation 
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module lORS; 

lORS - RS 10 routines. 

Abstract: 

lORS exports procedures to perform 10 on RS232 ports. These 
routines are RS232 specific interrupt, initialization, and general 
10 routines, and are exported to the 10 subsystem modules. ( 
IO_Unit, lOJnit ) 

Notes: Speech is on an RS232 line, so all speech 10 goes through 
this module. 

Copyright (C) 1982, 1983 PERQ Systems Corporation 
Version Number V0.9 

{ xxxx^^x%%xx3^xxxxxxxxx9eae9Bexxxxxx ) Exports 

Imports lO^Private from lO.Private; 

var 
RSIntMask : integer; { mask of interrupts to enable for RS232 } 

procedure Rs_I n i t i a 1 i ze ; 

Function Rs ReadChar (Unit : UnitRng ; var Ch: char ): integer; 
Function Rs~WriteChar(Unit : UnitRng ; Ch: char ): integer; 

Procedure Rs_PutStatus(Unit : UnitRng ; var UserStatus : DevStatusBlock); 

Procedure RsA Interrupt; { Interrupt handler for RS232 port 'A' } 
Procedure RsB'interrupt; { Interrupt handler for RS232 port 'B' ) 
Procedure Spcjnterrupt; { Interrupt handler for Speech ) 

procedure RS UnitIO ( Unit: UnitRng; 

Bufr: lOBufPtr; 
Command: lOCommands; 
ByteCnt: integer; 
StsPtr: lOStatPtr ); 

procedure RS_I n i t i a 1 i ze ; 

Abstract : 

RS232 initialization logic. 
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Function RS_ReadChar(Unit : UnitRng ; var Ch: char ): integer; 
Abstract : 

Reads a character from RS232 port A and returns a completion or 
error code. 

Parameters : 

Ch - character read. 

Returns: A condition code as defined in module lOErrors. 

Function RS_WriteChar(Unit : UnitRng; Ch: char): integer; 

Abstract : 

Writes a character to RS232 port A or B and returns a completion 
or error code. 

Parameters : 

Unit - Port (A or B) to read from. 

Ch - character to write. 

Returns: A condition code as defined in module lOErrors. 

Procedure RS_PutStatus (Unit: UnitRng; var UserStatus:DevStatusBlock); 

Abstract : 

Sets port's characteristics. Translates old put status command 
into a configure command and a writeregs command, mapping the old 
status block into a set of Serial 10 controller registers and the 
baud rate for the configure command. 

Parameters : 

Unit - device whose characteristics are to be set. 
UserStatus - device status block containing characteristics to be 
set. 

SideAffects: 

Sets SIO register settings not mapped from the old device 
status block to their defaults. 
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Procedure RS UnitIO ( Unit: UnitRng; Bufr: lOBufPtr; Command: lOCommands; 
ByteCntT integer; StsPtr: lOStatPtr ); 

Abstract : 

Unit 10 operations to RS232 ports. 

Parameters: 

Unit - the device. 

Bufr - buffer for data transfers, if requested. 

Command - operation to be performed on the port. 

ByteCnt - number of bytes to be transferred. 

StsPtr - resultant status from the operation. 

Procedure RSA_Interrupt; 

Abstract : 

This is the interrupt routine for the RS232 port 'A'. 

Procedure Spc^Interrupt; 

Abstract : 

This is the interrupt routine for the Speech port. 

Procedure RSB_Interrupt; 

Abstract : 

This is the interrupt routine for the RS232 port 'B'. 
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module lOVideo; 
Abstract : 

Private Video type and variable declarations. 
lOVideo exports variables, constants, and procedures that the 10 
subsystem uses to do video manipulation 

Copyright (c) 1982, 1983, PERQ Systems Corporation 

Version Number V0.4 

exports 

imports IO_others from IO__others; 
imports lO^Private from IO_Private; 



const 
Tab Ignore = 2; 

var 
Cursor: CurPatPtr; 



{ number of points to ignore after when ignoring 



CursorX, CursorY: integer; 

OldCurY, 

OldCurX: integer; 

PointX, PointY: integer; 

TabCount : integer; 

CursF: integer; 
BotCursF: integer; 
BotComplemented: boolean; 
TabMode: TabletMode; 
CCursMode: CursMode; 
newFunct: Boolean; 



{ Cursor Pattern ) 

I new cursor coordinates } 

{ previous Cursor Y position ) 

{ previous Cursor X position MOD 8 } 

I the point of the cursor } 

{ number of points left to ignore ) 

{ function currently in use} 

{ function for area below used area) 

{ whether bot is complemented or not) 

{ Current mode of the tablet } 

{ Current mode of cursor ) 

{ Tells when have a new function to 

insure that cursor redisplayed ) 



Procedure Vid^Initialize; { Initialization for the video ) 
Procedure Vid^Interrupt; { Interrupt Routine for the video device } 
Function Vid~SetUpl)DevTab: pointer; { Set up the pointers in the micro- ) 

{ code device table that the micro needs } 

procedure Vid^Initialize; 

Abstract : 

Initialize all the variables in IO_Others that we set, set up the 
default cursor, enable Video interrupts. 

WARNING: This must be called AFTER Screenlnit. 
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Procedure V i d_I nterrupt ; 

Abstract : 

Vid_Interrupt (formerly Tablntr) handles the screen retrace 
interrupt. It smoothes the tablet data and updates the displayed 
cursor position (if it is visible and has moved). 

function Vid_SetUpUDevTab: pointer; 

Abstract : 

Set up the screen control block for the microcode. Does not use 
Screen paclcage. 

Returns: Pointer to the screen buffer. 
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module IOZ80; 

I0Z80 - 'Private' Z80 type and variable declarations - available 
to the 10 subsystem. Z80 routines. 

Copyright (C) 1982. PERQ Systems Corporation 

Abstract : 

IOZ80 exports variables, constants, and procedures the 10 
subsystem uses to do Z80 10. 

Version Number V0.4 

{ 5e»5e3exx»3e55553ex3e3e3Bex5»x*5C3e5e«3BBCx } Exports ( x x xxxxxxxxxxxx x xxxxxxxxx^eiexxx } 

imports IO_Unit from IO„Unit; 



lOBufPtr; 
lOCommands ; 
integer; 
double; 
lOStatPtr ); 



procedure Z80 Initialize; 
procedure Z80lUnitIO( Bufr 

Command 

ByteCnt 

LogAdr 

StsPtr 
procedure Z80_Interrupt; 

procedure Z80_Interrupt; 

Abstract : 

Handle interrupts from the clock. Interrupts from the clock are 
responses to commands sent to the clock. 

procedure Z80_I n i t i al i ze ; 

Abstract: 

Initialize the clock by enabling interrupts. This rout in can be 
called any number of tiroes. (Thus the check for nill pointers in 
the device table.) An initial sense is done to determine if the 
clock is supported by the hardware. 

procedure Z80_UnitIO( Bufr : lOBufPtr; 
Command 7 lOCommands; 
ByteCnt : integer; 
LogAdr : double; 
StsPtr : lOStatPtr ); 

Abstract: 

Do 10 to the Z80 device. High volume read and write allow loading 
and reading Z80 memory. Sense to determine Z80 version number, 
Writeregs to call a location in Z80 memory. 
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Parameters i 

Bufr - buffer for data transfers, if requested. 
Command - operation to be performed on the device. 
ByteCnt - number of bytes to be transferred. 
LogAdr - address used for WriteRegs. 
StsPtr - resultant status from the operation. 
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module IO_Init; 

IO_Init - Initialize the 10 system. 
Copyright (C) 1982, 1983, PERQ Systems Corporation 
Abstract: 

IO_Init initializes the Interrupt Vector Table, the Device Table 
and associated buffers, the Screen Package, the tablet and cursor, 
and the Z80. lO^Init imports various device dependent modules, 
which contain device dependent initialization code. 

This module is based on Version VS. 9 of old I/O board's IO_Init 
support module, written by Miles Barel and modified by numerous 
times by just about every engineer at PERQ Systems Corporation. 

Version Number V7.12 
{3«««e5e5B9B«353B»3e«3B«e»^ Exports 

Procedure InitIO; 
Procedure RelnitDevices; 



Procedure InitIO; 
Abstract : 

Initio initializes the Interrupt Vector Table, the Device Table 
and associated buffers, the Screen Package, the tablet and cursor, 
and the Z80. 

procedure RelnitDevices; 

Abstract 

Initialize Z80 devices which were not initialized before due to 
lack of Z80 support. (The Z80 proms aren't large enough to 
support all the devices. Thus, the system must load the Z80 
program into the Z80 ram sometime during initialization. After it 
does this, it calls us so that all the devices work.) 
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module IO_Others; 

IO_Others - Miscellaneous 10 routines. 

Miles A. Barel ca. 1 Jan 80. 

Copyright (C) 1980, 1982, 1983 PERQ Systems Corporation 

Abstract: 

IO_Others exports routines for the Cursor, Table, Screen, Time, 
and Keyboard. 

Version Number V6.8 

{ XXXXXXXXXXXXXXXXXXXXXX X XXXXXXXX ) Exports 
{ XXX5eXX5e-X-'XXXXXX5»XXXXXXXXXXXXX ) 

Imports SystemDefs from SystemDefs; 

{ tablet/cursor procedures ) 

Type 
CursFunction = (CTWhite, CTCursorOnly, CTBlackHole, CTInvBlackHole, 
CTNormal, CTInvert, CTCursCompl, CTInvCursCompl); 
TabletMode = (relTablet, scrAbsTablet, tabAbsTablet, offTablet); 
CursMode = (OffCursor, TrackCursor, IndepCursor); 
CursorPattern = array[0..63,0..3] of integer; 
CurPatPtr = ''CursorPattern; 
TabletType = (NoPointDev. KrizTablet, GPIBBitPad ); 



Var 



TabRelX, TabRelY : integer; 
TabAbsX, TabAbsY : integer; 
TabFinger : boolean; 
TabSwitch : boolean; 
TabWhite : boolean; 
TabGreen : boolean; 
TabBlue : boolean; 
TabYellow : boolean; 
TabMouse : integer; 
DefaultCursor: CurPatPtr; 
RealRelTablet : boolean; 
TypePointDev : TabletType; 
BitPadTimeOut : integer; 
KrizTabConnected : boolean; 
GPIBpadConnected : boolean; 
TabLeft : boolean; 
TabMiddle : boolean; 
TabRight : boolean; 



) 



} 



} 



{ tablet relative coordinates 

{ tablet absolute coordinates 
finger on tablet ) 
switch pushed down ) 
True if white or left button down } 
True if green or right button down ) 
True if blue button down ) 
True if yellow or middle button down 
Actual output from mouse } 
default cursor pattern ) 
indicate if table in true relative mode 
tells which tablet is the pointer ) 
how long before puck off bit pad ) 
true if KrizTablet connected ) 
ture iff the BitPad is connected ) 
true if left or white button down ) 
true if middle or yellow button down ) 
true if right or green button down ) 



Procedure IOLoadCursor(Pat: CurPatPtr; pX, pY: integer); 

{ load user cursor pattern } 
Procedure IOReadTablet(var tabX, tabY: integer); { read tablet coordin 
Procedure IOSetFunction(f: CursFunction); 

Procedure IOSetModeTablet(m: TabletMode); { set the mode to tell what kind 

of tablet is currently in use } 
Procedure lOCursorMode (m: CursMode); { if track is true, then Tablet 
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coordinates are copied every l/60th 
second into the cursor position, if 
indep, then coordinates are changed 
only by user. If off, then no 
cursor displayed ) 
Procedure IOSetCursorPos(x,y: Integer); { if trackCursor is false, then sets 

cursor x and y pos. If tracking, 
then sets both tablet and cursor. ) 
Procedure lOSetTabPos (x,y: Integer); { if trackCursor is false, then sets 

tablet X and y pos. If tracking, 
then sets both tablet and cursor ) 
Procedure lOReadCursPi dure (pat: CurPatPtr; var px, py: integer); 

{ copies current cursor picture into 
pat and sets px and py with the 
offsets for the current cursor } 
Procedure ICX5etTime(var t: double); { Get the double word 60 Hertz time } 

{Procedure to change screen size) 

Procedure IOScreenSize(newSize: integer; Complement: Boolean); 

{ newSize is number of scan lines in 
new screen; must be a multiple of 
128. Complement tells whether the 
rest of the screen should be the 
opposite color from the displayed 
part ) 

{ disable/enable keyboard interrupts ) 

Procedure IOKeyDisable( var OldKeyEnable: Boolean ); 

Procedure IC»CeyEnable( OldKeyEnable: Boolean ); { enable keyboard i 

nterrupts ) 
Procedure lOKeyClear; { clear the 10 type-ahead buffer ) 
Procedure lOSetRealRel Tablet ( state: boolean ); { if state is true, then 

tablet will be a true 

relative tablet ) 
Procedure IOChooseTablet( model : TabletType ); { choose which tablet will 

be operating ) 
Procedure IOSetBitPadUpdateTimeOut( cnt: integer ); { set time-out constant 

for BitPad updates ) 

procedure lOCursorModeC M: CursMode ); 
Abstract : 

Sets the mode for the cursor. If the mode m is set to 
TrackCursor, Tablet coordinates are copied every l/60th second 
into the cursor position. If it's set to IndepCursor, coordinates 
are changed only by the user. If it is set to OffCursor, no 
cursor is displayed. 

Parameters : 

m - the new mode for the cursor. 
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procedure IOSetModeTablet( M: TabletMode ); 
Abstract: 

Sets the mode to tell what kind of tablet is currently in use. 

Parameters : 

m - the mode for the tablet. 

procedure IOLoadCursor( Pat: CurPatPtr; pX, pY: integer ); 

Abstract : 

Loads a user cursor pattern into the screen cursor. 

Parameters : 

Pat -a pointer to a cursor. It should be quad-word aligned. 

pX and pY - offsets in the cursor where the origin is thought to 
be. For example, if the cursor is a bull's eye, 31 bits 
diameter flushed to the upper left corner of the cursor box, 
using (pX, pY) = (15, 15) will have the cursor surround the 
things pointed at. 

NOTE: This procedure supports a cursor which is 56 x 64; with 
a scan line length of 4 

procedure IOReadCursPicture( Pat: CurPatPtr; var pX, pY: integer ); 
Abstract: 

Copies the current cursor picture into Pat and sets pX and pY with 
the offsets for the current cursor. 

Parameters : 

Pat, pX, and pY are filled with data on the current cursor. Note 
that Pat must be quad-word aligned. 

Procedure IOSetFunction( f: CursFunction ); 

Abstract : 

Sets the cursor function. 
Parameters: 

f - the function to set the cursor to. 
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procedure IOSetCursorPos( x, y: integer ); 
Abstract : 

If the cursor's mode is not TrackCursor, this procedure sets the 
cursor's x and y positions. If tracking, it sets both tablet and 
cursor. 

Parameters : 

X and y - the new cursor coordinates. 

procedure IOSetTabPos( x, y: integer ); 

Abstract: 

If the cursor's mode is not set to TrackCursor, lOSetTabPos sets 
the tablet's x and y positions. If the mode is TrackCursor, both 
tablet and cursor are set. 

Parameters : 

X and y - the new tablet coordinates. 

procedure lOReadTabletC var tabX, tabY: integer ); 

Abstract : 

Reads tablet coordinates. 
Parameters : 

tabX and tabY - set to x and y values of the tablet. 
Procedure IOScreenSize( newSize: Integer; Complement: Boolean ); 
Abstract : 

Changes the amount of screen visible to the user (the rest is 
turned off, hence not displayed). The cursor is prevented from 
going into the undi splayed part of the screen. 

Parameters : 

newSize - number of scan lines in new screen; it must be a 
multiple of 128. 

Complement - tells whether the rest of the screen should be the 
opposite color of the displayed part. 
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Procedure IOGetTiiDe( var t : double ); 
Abstract : 

Reads the 60 Hertz clock. 

Parameters: 

t - set to the new time. 

procedure IOKeyDisable( var OldKeyEnable: Boolean ); 

Abstract : 

lOKeyDi sable is used to disable keyboard interrupts. This is used 
to delay processing of control-c, control -sh if t-c and 
control -sh if t-d at critical tiroes. The old value of the keyboard 
interrupt enable is returned and must be passed back to 
lOKeyEnable when re-enabling keyboard interrupts. Characters 
typed while keyboard interrupts are disabled are remembered. 
When keyboard interrupts are re-enabled, the characters are 
processed. 

Parameters : 

OldKeyEnable - set to the old value of the enable. 

procedure IOKeyEnable( OldKeyEnable: Boolean ); 

Abstract i 

lOKeyEnable is used to enable keyboard interrupts. The old value 
of the keyboard interrupt enable (as returned from lOKeyDi sable) 
must be passed to lOKeyEnable when re-enabling keyboard 
interrupts. If characters were typed while keyboard interrupts 
were enabled, lOKeyEnable calls Keylntr to process those 
characters. The master interrupt control (INTON and INTOFF 
QCodes) must be on when this procedure is called. 

Parameters : 

OldKeyEnable - the old value of the enable. 

procedure lOKeyClear; 

Abstract : 

lOKeyClear clears the keyboard type-ahead buffer. 
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Procedure IOSetRealRelTablet( state : boolean ); 

Abstract : 

Allows the Kriz Tablet or GPIBBItPad to be handled in a true 
relative mode. 

Parameters : 

state - if true then a true relative mode is obtained whenever the 
TabMode = re 1 Tab let; lifting the mouse/puck/pen from the 
tablet surface and then returning it does not alter cursor 
position on the screen - only the movement of the 
mouse/puck/pen on the tablet surface will cause corresponding 
delta-x and delta-y changes in cursor position. 

- if false, then x and y co-ords are simple linear 
transformation of the actual values to provide a 1-1 mapping 
of the 768 by 1024 screeninto the tabler surface whenever 
TabMode = re 1 Tab let. 

Procedure IOChooseTablet( model: Tablet Type ); 

Abstract : 

Allows selection of tablet that will provide co-ordinate positions 
and switch values. 

Parameters : 

model - choices are KrizTablet, GPIBBitPad, or NoPointDev 

Side Effects: Depending upon the state of TabMode, we may have to call 
lOSetModeTablet to turn one tablet off and the other one on. 

procedure IOSetBitPadUpdateTimeOut( Cnt: integer ); 

Abstract : 

Set the time-out used to determine if the puck/pen is off the 
BitPad. 

Parameters : 

cnt - CntXl/60sec is the actual time-out. 
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module lO^Private; 
Abstract: 

10 type, and data definitions common to the 10 system but not 
available to other Perq modules. 

Copyright (C) PERQ Systems Corporation, 1982, 1983 

Version Number V6.2 

{ »»»»»»»»»» } export s { ««««««««««««<«««« ) 

imports SystemDefs from SystemDefs; 
imports 10 Unit from lO^Unit; 
imports lOlOthers from TO_Others; 
imports Raster from Raster; 

const 

{ Micro-code I/O Entry Points } 

These entry points are parameters to the Pascal supported Q-code ) 

"STARTIO-. Additional parameters, where required, are documented } 

in the expl a i nations. Note that ETOS refers to the top of the ) 

expression stack as seen by the Pascal programmer. After a Start 10 } 

instruction is executed, the I/O Entry Point has been pushed to the ) 

ETOS, and thus, what looks like ETOS to Pascal, is ETOS-1 to the } 
micro-code. Note also that all addresses are virtual addresses, and) 
that } 



EP lOStart = 0; 



I/O Micro-Code Initialization Entry Point } 
Expcts a pointer to the micro-code device) 
table at top of stack. Expects entry of) 
the device table to have its data control ) 
pointer set to the address of the ) 
interrupt vector. To be executed once ) 
at system boot time as part of startup. ) 
Also sets stack base and limit. ) 

EP HardDisk = 1; { Hard Disk I/O request ) 

{ Expects the hard disk uCode Device Table ) 

{ entry's data control pointer to point to ) 

{ a Disk Control Block. ) 

EP_Ethernet = 2; { 3/lOMB Ethernet I/O request ) 

{ Expects the ethernet uCode Device Table ) 

{ entry's data control pointer to point to ) 

{ an Ethernet Control Block. ) 

EP SetEnableMask = 3; { Update device's interrupt enable mask ) 

{ Expects a Z80 device ID at ETOS and a mask ) 

{ to be applied to interrupts for that ) 
{ device at ETOS-1. ) 

EP_ReadTimer = 4;{ Returns a count of 'jiffies' since last ) 
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EP_ReadCause = 5; 



EP_Z80Msg = 6; 



'ReadTimer' request. Returns jiffies ) 
on ETOS. ETOS-i. ETOS-2 = return code. ) 

Determine the cause of an interrupt and } 
attention from a device. Expects a device ID 
at ETOS. Returns interrupt cause on ETOS, ) 
attention cause on ETOS-1. ) 

Enqueue a message for delivery to Z80 ) 
Expects a pointer to a message at ) 
ETOS, ETOS- 1 and a destination queue ) 
at ETOS-2. Returns a results indicator) 
(integer) at ETOS ) 

{ Start 10 entry points 7 and 8 no longer exists and can be 
redefined. ) 

EP_UcodeMsg = 9; { Get a Z80 message from the Ucode sent message ) 
( queue. The Ucode returns a pointer to a Z80 ) 
{ message at ETOS, ETOS-1. ) 



EP_GetChar = 10; 



Return next char from the circular buffer of ) 
the specified device, if any has been received, 
with completion status. Expects a device ID at 
ETOS. Returns a results indicator (integer) at 
ETOS and a byte at ETOS-1. ) 



EP_PutCircBuffer = 11; ( Place a byte onto a circular buffer ) 

{ Expects a character on ETOS, a pointer to a ) 
{ circular buffer control block at ETOS-1, ETOS-2, ) 
{ and returns a results indicator (integer) at ETOS. ) 

EP_GetCircBuffer = 12; ( Return next byte from Specified Circular ) 

{ buffer(if not empty) with completion status. ) 

{ Expects a pointer to a circular buffer control ) 
{ block at ETOS.ETOS-1. ) 

{ Returns a results indicator (integer) at ETOS ) 
( and a byte at ETOS-1. ) 

{ Device table definitions } 

{ Device type: ) 

Dev^Unused = 0; { indicates that the device field is not used ) 

I Hard Disk device types } 
Dev__Shugart = 1; { Shugart disk drive ) 
Dev"Micropolis = 2; { Micropolis disk drive } 
Dev~SMD = 3; { Store Module Technology } 

{ Intr cause - all numbers are indexex into the IntrCause field ) 

{ Interrupt causes common to all devices ) 

Dev^Attention = 0; {We received an attention msg. from Z80 ) 
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Dev AckReceived = 1; { Z80 'Acked' our request msg. ) 
Dev"NakReceived = 2; { Z80 'Naked' our request msg. ) 
Dev~StatReceived = 3; { Z80 sent us a status msg. 1 

{ Intr cause - Device Specific } 

{ the following is valid for RSB, RSA, GPIB, and the KeyBoard } 

Dev^DataAvailable = 5; { Data has arrived in the circular buffer ) 

{ the following is valid for screen out } 

Dev__ScreenUpdate = 6; { time for a screen update ) 

const 

CirBufSize = #100-3; 

type 

{ The definition of a circular buffer ) 

CirBufltem = packed record ( one element of a circular buffer ) 

ch: char; { the character ) 

status: 0..255 { and a byte of status information } 
end; 

CircularBuffer = packed record { the circular buffer for characters } 
Length: integer; { number of characters in the buffer ) 
RdPtr: integer; { where to get characters from ) 
WrPtr: integer; ( where to put characters to ) 
Buffer: packed array[O..CirBufSize-ll of CirBufltem 
end; { lastly, the buffer of items ) 

CirBufPtr = CircularBuffer; { points to a circular buffer ) 

Z_CmdRegister = packed record 
cise integer of 

1: ( Bits : packed array [0..151 of boolean ); 

2: ( Number : integer ); 
end; 

type 

DevTblEntry = packed record { Each entry must be ) 

( quad-word aligned. ) 
IntrCause : Z_CmdRegister; 

{ This is a bit map of the cause(s) of the interrupt(s) ) 
{ which the Pascal has not as yet received. ) 

IntrPriority : Z CmdRegister; 

{ This array determines the interrupt vector entry and ) 

{ thus the priority to be used when an interrupt for ) 

{ this device occurs. 0=highest, 1 5=1 owes t. ) 

EnableMask : Z_CmdRegister; 

- 165 - 



POS operating System - Module IO_Private 



January 16, 1984 



ATTICause 

pCirBuf 
pStatus 
pDataCtrl 

DeviceType 

Reserved 
end; 



This is a mask determining which types of interrupts, } 

as defined in the IntrCause array, will produce Pascal } 

level interrupts. *1' enables intr. at correponding } 

bit position in IntrCause, '0' masks the intr. until } 
the mask bit is again set to '1') 

Z_CmdRegister; 

"nlis is a device-specific bit map of the reason(s) for } 

an attention message from the device. ) 

CirBufPtr; { KEEP THIS QUAD WORD ALIGNED ) 

Points to a Circular Buffer ) 

pointer; 

Points to device-specific device status information. } 

pointer; { KEEP 11113 QUAD WORD ALIGNED } 

Points to device-specific I/O control structure to be ) 
used in all operations not using the circular buffer ) 

integer; 

Differentiates units as to their type. This code will } 

vary among different hard disk drives where the uCode ) 

must process requests for the drives differently. ) 

packed array 10.. 01 of integer; ( Filler to insure a ) 

{ quad word alignment) 



pUDeviceTable = ^UDeviceTable; 

UDeviceTable = array (O..MaxUnitl of DevTblEntry; 

{ The definition of a high volume data control buffer ) 

HiVolBlock = packed record { MUST BE QUAD WORD ALIGNED ) 
DataByteCnt: integer; { number of bytes in the buffer ) 
pDataBuffer: lOBufPtr { pointer to buffer supplied by the user ) 
end; 

pHiVolBlock = "HiVolBlock; 



Type 



lOPtrKludge = record case integer of 
1: (Buffer: lOBufPtr); 
2: (Offset: Integer; 
Segment: Integer) 
end; 



type 



Z_Commands = ( { The order of declaration of these commands ) 
{ should not be changed as the uCode and Z80 ) 
{ depend on their generated values remaining ) 
{ constant. ) 

Z Illegal, Z RequestData, 

Z~B1 ockDat a , Z"SendDat a , 
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Z ACK, Z NAK, 

ZlATN. Z_Status, 

Z_Seek, Z.Config, 

Z_Boot, Z_Reset, 

Z Sense, Z WriteRegisters, 

ZJnHiVolumeStart, Z OutHiVolumeStart, 

Z ReadData, Z WriteData, 

Z"ReadID, Z ReadDeletedData, 

Z'WrtDeletedData, ZlSpecify, 

Z'Format, Z_.Recal, 

ZlSenseDriveStatus, ZJOIdata ); 

const 

Z SOM = 170 ; { Start of Z80 message character for Z80 messages } 
{ Binary 10101010 to make it unlikely to match a } 
( device, command, or byte count. ) 

{ Length constants for data portion of Z80 messages ) 

Z_NoData = 2; 

Z^FirstData = Z.NoData + 1; 

Z_MaxData =14; 

Z^DataSize = Z.MaxData - Z.NoData; 
type 

Z_Queue = (Z_QO, Z.Ql, Z_Q2, Z_Q3 ); 

Z_Data = packed array [ Z.F i rstData. .Z_MaxDatal of 0..255; 



pZ Msg = "Z_Msg; 
Z_Msg = packed record 
"pNext 

UCodeArea 

SOMDeli miter 

ByteCount 

Device 

Command 

Data 

end; 



pZ Msg; 

long; { micro code uses these two words, don't touch } 

0..255 

0..255 

0..255 

0..255 

Z Data 



Z MsgPtrKludge = record case boolean of 
true: (pMsg: pZ_Msg); 
false: (Offset: integer; 

Segment: integer); 
end; 

const 

SLeftX = 0; { left most X coordinate ) 

SRightX = 767; { right roost X coordinate } 

STopY = 0; {top most coordinate ) 
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Var 
SBottomY : integer; { current bottom most Y coordinate ) 

pUDevTab : pUDeviceTable; { points to the device table ) 

Z_MsgNot Avail able : integer; { count of number of times Ucode did not 

( have an empty Z80 message when asked 
for one ) 

lOSegNum : integer; ( For debugging, holds the actual segment number ) 

{ from which lOSegment data structures are ) 

( allocated. Holds actual segment number of the ) 

{ lOSeg when not testing. ) 

Z_IntDisabled : boolean; 

KeyEnabled : boolean; 

TimeBuf : ^long; { points to timer information, here because ) 

{ there is no lOTimer } 

RaiseException : packed array[O..MaxUnit] of packed record 

Attention : boolean; 
DataAvailable : boolean 
end; 

Procedure Z_SendMsg( pMsgToSend : pZ_Msg; SendQueue : Z_Queue ); 

function Z_DqSysMsg : pZ_Msg; 

procedure Z_QSysMsg (pMessage : pZ_Msg ); 

procedure Z^Critical Sect ion ( Beginit : boolean; 

Unit : integer; 
var Save : integer); 

Procedure Z_SendMsg( pMsgToSend : pZ_Msg; SendQueue : Z_Queue ); 

Abstract : 

This procedure is called by I/O system logic to send a message to 
the Z80 I/O controller. Ihe message will be queued by the Perq 
micro-code to be sent when the Z80 port becomes available. Return 
to the caller is immediate; the completion of transmission will be 
detected from Z80 return messages. 

Parameters : 

pMsgToSend: The single parameter is a pointer to a record which 
contains the message as well as the queue to place the message on. 
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function Z_DqSysMsg : pZ_Msg; 
Abstract : 

This routine removes a Z80 message from system owned queue of 
messages which have been sent to the Z80. Each call to this 
routine will return with ether a pointer to a Z80 message. 

This procedure is meant to be called by routines needing an empty 
Z80 message. 

Returns : 

The value returned is a pointer to a Z80 message. If no messages 
remain on the system owned queue this returned value is NIL. 

procedure Z_QSysMsg ( pMessage : pZ_Msg); 

Abstract : 

This routine places a Z80 message onto the system owned queue of 
messages which have been sent to the Z80. Its purpose is to 
provide 10 routines with system owned messages and to provide 
initialization logic with a way of first adding messages to the 
queue. 

Parameters : 

pMessage - Message to be sent to the Z80. 

procedure Z_Critical Sect ion ( Beg i nit : boolean; Unit : integer; var Save 
: integer); 

Abstract : 

This routine implements a critical section by disabling all 
interrupts for a device and restoring the interrupt state on 
completion of the critical section. 

Parameters : 

Beginit - When true, a critical section should begin, else the 
critical section is ended. 

Unit - Unit whose interrupts will be enabled/disabled. 

Save - When a critical section should begin, this value will be 
returned to the caller containing the interrupt mask before 
all interrupt types were disabled. 

When the critical section is being ended, this value is an 
input parameter and holds (the previously saved) interrupt 
mask which should be retored. 
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module IO_Unit; 

IO__Unit - Unit 10 routines. 

Copyright (C) 1982, 1983, PERQ Systems Corporation 

Abstract: 

IO_Unit exports constants, types, variables, and procedures needed 
to~perform 10 on the various 10 Units, (devices). 

Design: All procedures call device dependent routines to do the 
actual 10 

Version Number V7.ll 

{ %9S)E3$%%%x%%%%^xxx9(XX9(^xx%xxxxxx } Exports 

imports SystemDefs from SystemDefs; 

const 

{ Device Code Assignments for device table ) 

{ NOTE: The order of device declaration is important; all Z80-controlled } 
{ devices have been assigned a sub-range of contiguous values. Be } 
{ sure to Check IO_Defs_Private before modifying these values? ) 

lOStart = 0; { System Initialization ) 
HardDisk =1; { Has a device table entry ) 

{$ifc EtherSMBaud then} 

Ether3 = 2; { Has a device table entry ) 
{$elsec} {$ifc Ether lOMBaud then) 

EtherlO = 2; { Has a device table entry ) 
{fendc} (Sendc) 

= 3: 

RS2320ut = RSA; RS232In = RSA; 
{ valid for EIO boards only ) 

GPIBIn = GPIB; GPIBOUT = GPIB; 
Tablet = PointDev; 



Floppy 


= 


3 


RSA 


= 


4 


RSB 


= 


6 


Speech 


= 


6 


GPIB 


s 


7 


Keyboard 


ss 


8 


Timer 


s 


9 


Clock 


s 


10 


PointDev 


s 


M 


TransKey 


= 


12 


ScreenOut 


=: 


13 


EIODisk 


s 


14 


Z80 


= 


15 



LastUnit = Z80; { for unit validity checking ) 
MaxUnit = LastUnit; { highest legal device code ) 

RSExt = 0; { RS-232 Speeds ) 

RSUO = 1; 
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type 



RSI 50 = 2; 
RS300 = 3; 
RS600 = 4; 
RS1200 = 5 
RS2400 = 6 
RS4800 = 7 
RS9600 = 8 
RS19200 = 9; 

RS_MaxWords = 6; 

RS_MaxBytes = RS^MaxWords X 2; 



UnitRng = O..MaxUnit; 

lOBufPtr = '^lOBuffer; 

lOBuffer = array[0..01 of integer; 

CBufPtr = "CBufr; 

CBufr = packed arrayl0..01 of char; 

BigStr = String[2561; 

lOStatPtr = "lOStatus; 
lOStatus = record 

HardStatus: integer; 

SoftStatus: integer; 

BytesTransf erred: integer 
end; 



{ same as Memory, except ) 
{ for character buffers ) 
{ A big String ) 



{ hardware status return } 
{ device independent 
status } 



lOCommands = (lOReset, lORead. lOWrite, lOSeek. 

lOFormat, lODiagRead, lOWriteFirst, lOIdle, 

lOWr i teEOI , lOConf i gure , lOWr i teRegs , lOSense , 

lOWriteHiVol, lOReadHiVol.IOReadlD. lOFlush ); 



lOHeadPtr = "lOHeader; 
lOHeader = record 

SerialNum : double; 

LogBlock : integer; 

Filler : integer; 

NextAdr : double; 



PrevAdr 
end; 



double 



{ Hard disk header record ) 
{ Serial number of the file } 
{ The logical block number } 

{ Address of next block in the 

file ) 
{ Address of previous block ) 



lOIntrTypes = (lOATNInterrupt, lODatalnterrupt); 
{ the following is useful for an lOWriteReg command to the RS232 } 

{ Write to Chip registers } 



RS WrtReg = packed record 
" ID : 0..266; 
case integer of 
: { Write to command register } 
(NextRegisterPo inter : 0..7; 
Command : (R Null Command, 



R_SendAbort, 
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pClockStat = ^ClockSt2 


it; 


ClockStat = packed record 


Cycles : 0..265; 




Year : 0..255; 




Month : 0..255; 




Day : 0..255; 




Hour : 0..265' 




Minute : 0..256 




Second : 0..255 




Jiffies : 0..256 


end; 





{ lOSense to the Clock provides this } 



pZSOStat = ^ZSOStat; . ^«^ .^ u i 

ZSOStat = packed record { lOSense to the Z80 provides the ) 

MajorVersionNum : 0..255; ( version number of the code running ) 

MinorVersionNum : 0..256; { on the Z80, interpret as ) 

end; ( Version Major. Mi nor ) 



pPointDevStat = *PointDevStat; 
PointDevStat = packed record 
OnOff : 0..256; 

end; 

pKeyStat = "IO_KeyStat; 
10 KeyStat = packed record 
~ OnOff : 0..255; 

OverFlow : 0..255; 
end; 



{ zero means PointDev configured off } 
{ nonzero means PointDev configured 
on } 



{ Zero means keyboard is configured 

off ) 
{ nonzero means overrun on in buffers ) 



RS StatusType = (RS Config. RS.PStat. RS_GStat. 

RS_MapBytes. RS_MapWords ) ; 

pRS232Stat = "RS232Stat; 
RS232Stat = packed record 
case RS_StatusType of 



RS MapBytes: 
RS'MapWords : 
RS""Config : 



RS PStat 
RS GStat 



. Byte : packed array [ 1 . .RS_MaxBytes] of 0..255 ); 
( Word : packed array [ l..RS.MaxWordsl of integer ); 
( XmitRate : 0..256; 
RcvRate : 0..255 

); 

(*Reg : packed array tl..61 of RS^WrtReg ); 

{ Read General Status - SIO Chip's Read Register #0 ) 



boolean; 

boolean; 

boolean; 

boolean; 

boolean; 

boolean; 

boolean; 

, boolean; 

{ Read Special Condition - SIO Chip's Read Register #1 
AllSent : boolean; 



RxCharAvailable 

IntPending 

TxBufferEmpty 

DCD 

SyncHunt 

CTS 

TransmitUnderRun 

BreakAbort 
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Residue 


: 0..7; 


ParityError 


: boolean; 


RxOverRun 


boolean; 


CrcFramingError 


boolean; 


EndOfFraroe ; 


; boolean ); 



end; 

{ Use of this status block is discouraged, Use the lOSense, lOConfigure, 
and lOWriteRegs command with UnitIO instead of lOPutStatus and 
lOGetStatus ) 

DevStatusBlock = packed record 
ByteCnt: integer; { # of status bytes ) 
case UnitRng of 
KeyBoard, 
{$ifc Ether3MBaud then} 

Ether3, 
{ lendc ) 

Clock: (DevEnable: boolean); 

Tablet: (OldStanleyEnable : boolean; ( should always be false ) 
KrizEnable : boolean; 
case boolean of 
true : { GET STATUS ) 

( TAbFill : 0..#77; 
TabOverRun : 0..255 ); 
false : { PUT STATUS } 

( { nothing ) )); 



RS232In, 
RS2320ut: 



(RSRcvEnable 
RSFill 
RSSpeed 
RSParity 

RSStopBits 
RSXmitBits 
RSRcvBits 



boolean; 
0..127; 
0..255; 

(NoParity, OddParity, IllegParity, 
EvenParity); 

(Syncr,Stopl ,Stoplx5,Stop2); 
( Sends , Send? . Send6 , Send8 ) ; 
(Rcv5,Rcv7,Rcv6,Rcv8) ) ; 



Floppy: (case integer of { Get or Put ) 
1: { GET STATUS } 
(FlpUnit 
FlpHead 
FlpNotReady 
FlpEquipChk 
FlpSeekEnd 
FlpIntrCode 
case integer 
1 (lORead, 
(FlpMissAddr 
FlpNotWri table 
FlpNoData 
FlpFilll 
FlpOverrun 
FlpDataError 
FlpFill2 



0..3; 

0..1; 

boolean; 

boolean; 

boolean; 

0..3; 
of 
lOWrite, lOFormat): 



boolean; 

boolean; 

boolean; 

0..1; 

boolean; 

boolean; 

0..1; 



{ in data or header ) 



{ in data or header } 
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FlpEndCylinder : bcx)lean; 

FlpDataMissAddr: boolean; { in data } 

FlpBadCylinder : boolean; 

FlpFill3 : 

FlpWrongCylinder 

FlpDataDataError 

FlpFill4 

FlpCylinderByte 

FlpHeadByte 

FlpSectorByte 

FlpSizeSectorByte: 0..255 ); 
2 {lOSeek): 
(FlpPresentCylinder: 0..255)); 
2: { PUT STATUS } 

(FlpDensity : 0..255; 
FlpHeads : 0..255; 
FlpEnable : boolean ); 
3: { BYTE ACCESS ) 
(FlpBytel : 0..255 
FlpByte2 : 0..255 
FlpByteS : 0..255 
FlpByte4 : 0..256 
FlpByteS : 0..255 
FlpByte6 : 0..255 
FlpByte? : 0..255 ) ); 



0..3; 

: boolean; 

: boolean; { in data ) 

: 0..3; 

: 0..255 

: 0..255 

: 0..255 



{ single = 0, double = #100 ) 
{ 1 or 2 heads ) 



GPIBIn, 

GPIBOut: { GET STATUS ONLY } 



(Intl Status 
AddrSwitch 
AddrStatus 
CmdPassThru 
IntOStatus 
BusStatus 



0..255; 
0..265; 
0..255; 
0..255; 
0..255; 
0..256 ) 



end; 
{ hard status type information ) 



DskResult = packed record 
case integer of 

: ( Result : 

1 : ( CntlError 



integer ); 
: ( DskOK. 

AddrsErr, 

PHCRC. 

LHSer, 

LHLB, 

LHCRC, 

DaCRC, 

Busy); 

Fill2 : boolean; 

TrackZero : boolean; 

WriteFault : boolean; 

SeekComplete : boolean; 

DriveReady : boolean); 
{for cio micropolis disks) 



{ address error ) 

{ Physical Header CRC ) 

{ Logical Serial Wrong } 

{ Logical Block Wrong ) 

{ Logical Header CRC ) 

{ Data CRC } 
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( CioMCntlErrpr: ( CioMDskOK, 

CioMAddrsErr, { address error } 
CioMPHCRC. { Physical Header CRC } 
CioMLHSer, { Logical Serial Wrong ) 
CicM^HLB, ( Logical Block Wrong ) 

CioMLHCRC, { Logical Header CRC ) 
CicM)aCRC» ( Data CRC ) 

CioMBusy); 
CioMIndex : boolean; 
CioMIl legal Addr : boolean; 
CioMFault : boolean; 
CioMSeekComplete : boolean; 
CioMDriveReady : boolean) 
end; 
( Floppy special data descriptions ) 
{ This information is returned from lOReadlD for the floppy ) 

FlpPhyHdr = Paclced record { used for lOFormat and lOReadlD } 
Cylinder : 0. .256; { cylinder number ) 
Head : 0..255; { Head number ) 
Sector : 0..256; { Sector number ) 
Size : 0..256; { Size (0=128 bytes. 1=266 bytes ) 
end; 

pFlpPhyHdr = ^FlpPhyHdr; { Recast to lOBufPtr for lOReadlD ) 

(This information is passed to lOFormat and specifies how to format ) 

FlpFmtHdrs = Array [1..26] of FlpPhy^dr; { input to lOFormat command ) 
pFlpFmtHdrs = "FlpFmtHdrs; { RECAST to lOBufPtr for lOFormat } 

Var 

CtrlSPendlng : boolean; { True: Control S has halted screen 

output ) 
lOInProgress: boolean; { false when speech is active ) 
1024MByte : boolean; { true if the disk is 24 MBytes } 

Exception DevInterrupt(Unit: UnitRng; IntType: lOIntrTypes; ATWCause: 

Integer); 
Function IOCRead(Unit: UnitRng; var Ch: char): integer; 
Function lOCWriteCUnit: UnitRng; Ch: char): integer; 
Procedure UnitlOCUnit: UnitRng; 

Bufr: lOBufPtr; 

Command: lOCommands; 

ByteCnt: integer; 

LogAdr: double; 

HdPtr: lOHeadPtr; 

StsPtr: lOStatPtr); 
Procedure IOWait(var Stats: lOStatus); 
Function IOBusy(var Stats: lOStatus): boolean; 
Procedure IOPutStatus(Unit: UnitRng; var StatBlk: DevStatusBlock); 
Procedure IOGetStatus(Unit: UnitRng; var StatBlk: DevStatusBlock); 
Procedure lOBeep; 

Function IOCRNext( Unit: UnitRng; Var Ch: char ): integer; 
Function IOCPresent( Unit: UnitRng ): boolean; 
Procedure IXlearExcept i ons ; 
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Procedure IOSetExceptions( Unit : UnitRng; 

IntType : lOIntrTypes; 
var Setting: boolean); 

{$ifc Ether3MBaud then) 

Function Ether3Transinit(Buff: lOBufPtr; WdCnt: integer) : integer; 

Function Ether3Receive(Buff: lOBufPtr; var WdCnt: integer; timeout: integer) 

: integer; 

Function Ether3Start( Promiscuous, Restart: boolean) : integer; 
{ lendc } 

Function IOCRead(Unit: UnitRng; var Ch: char): integer; 
Abstract : 

Reads a character from a character device and returns a completion 
or error code. 

Parameters : 

Unit - device from which to read the character. 

Ch - character to read. 
Returns : 

A condition code as defined in the module lOErrors. 
Function IOCWrite( Unit: UnitRng; Ch: char): integer; 
Abstract: 

Writes a character to a character device and returns a completion 
or error code. Delays if the buffer is full. Returns an error if 
the condition doesn't clear up. 

Parameteps : 

Unit - device onto which the character will be written. 

Ch - character to write. 

Returns: 

Condition code as defined by the module lOErrors. 
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Procedure lOWaitC var Stats: lOStatus ); 
Abstract: 

Hangs until an 10 operation inititated by Unit 10 is complete. 

Parameters : 

Stats - Status block that was given to UnitIO when the operation 
was initiated. 

Function IOBusy( var Stats: lOStatus): boolean; 

Abstract : 

Determines whether or not I/O is complete. 

Parameters : 

Stats - Status block that was given to UnitIO when the 
operation was initiated. 

Returns : 

True if 10 is not complete, false if it is. 

Procedure IOPutStatus( Unit: UnitRng; var StatBlk:DevStatusBlock ); 

Abstract: 

Sets device's characteristics. Has no effect if the device has no 
settable status. 

Parameters : 

Unit - device whose characteristics are to be set. 

StatBlk - block containing characteristics to be set. 

Procedure IOGetStatus( Unit: UnitRng; var StatBlk:DevStatusBlock ); 

Abstract : 



Reads device status. Has no effect if the device has no readable 
status. 

Parameters : 

Unit - device whose characteristics are to be read. 

StatBlk - block to which device status is to be returned. 
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Procedure UnitIO( Unit: UnitRng; Bufr: lOBufPtr; Command: I OCommands; 

ByteCnt: integer; LogAdr: double; HdPtr: lOHeadPtr; StsPtr: lOStatPtr 

); 

Abstract: 

10 to non-character devices. 

Parameters : 

Unit - the device. 

Bufr - buffer for data transfers, if requested. 

Command - operation to be performed on the device. 

ByteCnt - number of bytes to be transferred. 

LogAdr - logical address for block structured devices. 

HdPtr - pointer to the logical header for operations with the hard 
disk. 

StsPtr - resultant status from the operation. 

procedure lOBeep; 

Abstract : 

Causes the PERQ to beep. 
Function lOCRNextC Unit: UnitRng; Var Ch: char ): integer; 
Abstract: 

Reads a character from a character device and returns a completion 
or error code. We will always return with an error or a 
character. 

Parameters : 

Unit - device from which the character will be read 
Ch - character read from device 

Returns: condition code as defined by module lOErrors. 
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Function IOCPresent( Unit: UnitRng ): boolean; 
Abstract: 

Returns true if the Unit is a character device and has a character 
available for reading. Otherwise it returns false. It does not 
read the character. 

Parameters : 

Unit is the device to check for parameters 

Returns: true if a character is available. 

Procedure lOClearExcept i ons ; 

Abstract : 

Disable the raising of exceptions for device interrupts. All 
devices are affected. Exception raising disabled is the normal 
case. This procedure also resets the enable mask of certain 
devices. 

procedure IOSetExceptions( Unit : UnitRng; 
IntType : lOIntrTypes; 
var Setting: boolean); 

Abstract: 

Disables or enables the raising of an exception when the specified 
device raises the specified interrupt. Setting = true enables, 
Setting = false disables. Upon return. Setting will be set to to 
true if the raising of the specified exception was previously 
enabled, false if not. 

Parameters : 

Unit - device to enable/disable exceptions on 
IntType - type of interrupts to enable/disable 
Setting ~ true to enable, false to disable 

Returns: setting returns previous state of exceptions. 
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module Lights; 

Lights - Perq Lights. 

J. P. Strait 26 May 81. 

Copyright (C) PERQ Systems Corporation, 1981 

Abstract: 

This module defines the screen coordinates and size of the Perq 
-lights". These are portions of the screen that are inverted 
during tedious operations such as recalibrating the disk and 
scavenging files (in FileAccess). 

Design: The lights must XnotX extend below the 128th line of the 
screen. The Y + Size must be less than or equal to 256. It is a 
good idea for the lights to be totally inside of the title line. 
The current lights start at the left leave lots of room for new 
lights to the right of the current one. There is room for 10 
lights all together 

Version Number VI. 4 

exports 

const 

LightUsed = TRUE; {whether should use the lights at all) 

LightY = 3; 

LightHeight = 14; 

LightWidth = 18; 

LightSpacing = 3XLightWidth; 

LightRecalibrate = LightSpacing; 

LightScavenge = LightRecalibrate + LightWidth + LightSpacing; 

LightSwap = LightScavenge + LightWidth + LightSpacing; 

LightHardCopy = LightSwap + LightWidth + LightSpacing; 
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module Loader; 

Loader - Perq system loader. 

J. P. Strait 10 Feb 81. rewritten as a module. 

Copyright (C) PERQ Systems Corporation, 1981, 1982. 

Abstract : 

This module implements the Perq POS system loader. Given a 
run-file name as input, it loads and executes that program. When 
the program terminates (normally or abnormally) it returns to the 
loader which returns to its caller. 

Version Number V3.1 



exports 

const LoaderVersion = '3.0'; 

procedure Load( RunFileName: String ); 

procedure Load( RunFileName: String ); 

Abstract : 

Given a run-file name as input, this procedure loads and executes 
that program. When the program terminates (normally or 
abnormally) it returns to the loader which returns to its caller. 

Parameters : 

RunFileName - Name of the .RUN file to load. ".RUN** is appended 
if it is not already present. 
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module LoadZSO; 
Abstract: 



Module to read Tektronix format load files and load them into the 
Z80. 



Version Number V0.3 
Type 



) Exports ( x xxxxxxxxxxx xx xx xxxx x xxx x xxx ) 



TekResult = (TekOk. TekFNF, TekFHT, TeklO); 

Function TekLoad(FileName : String; Var StartAddress : Integer) : TekResult; 

Function TekLoad(FileName : String; Var StartAddress : Integer) : TekResult; 

Var 

Addr ; Integer; { Address of current block } 

TekFile : Packed File of 0..255; { Input Tekhex format file } 

Binary : pByteArray; { Binary data to be sent to Z80 ) 

Data : tByteArray; { data read from input file ) 

i,j,k : integer; { index } 

LogAdr : double; ( double word address for Unit 10 ) 

StsPtr : lOStatPtr; { status for UnitIO call ) 
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module Memory; 

Memory - Perq memory manager. 
J. P. Strait 1 Jan 80. 
Copyright (C) PERQ Systems Corporation, 1980, 1982. 

Abstract: 

Memory is the Perq memory manager. It supervises the segment 
tables and exports procedures for manipulating memory segments. 
Perq physical memory is segmented into separately addressable 
items (called segments) which may contain either code or data. 

Design: See the Q-Code reference manual. 

Version Number V2.20 

exports 

const MemoryVersion = '2.18'; 



imports SystemDefs from SystemDefs; 
imports Code from Code; 



const SATSeg = 1; 
SITSeg = 2; 
FontSeg = 3; 
ScreenSeg = 4; 
CursorSeg = 5; 
lOSeg = 6; 
SysNameSeg = 7; 



SAT segment ) 
SIT segement } 
font segment } 
screen segment } 
cursor segment } 
10 segment ) 
system segment names ) 



Blocks I nQuarterMeg = #1000; { 612 blocks in 1/4 meg memory) 
BlocksInHalfMeg = #2000; { 1024 blocks in 1/2 meg memory) 
BlocksInMeg = #4000; { 2048 blocks in 1 meg memory) 

BlocksForPortra it Screen = 192; { number of blocks needed for its 

segment ) 
BlocksForLandscapeScreen = 320; 



MaxSegment = #137; 

SetStkBase = #60; 
SetStkLimit = #120; 

{$ifc Ether3MBaud then) 
lOSegSize = 10; 

(Seisec) 

{$ifc EtherlOMBaud then) 
lOSegSize = 8; 

{$elsec} 

lOSegSize = 8; 

{ lendc ) 

{ $endc ) 

SysSegLength = 8; 



( should be 2^16 - 1 ) 



{ number of blocks in the lOSeg ) 

{ number of blocks in the lOSeg ) 
{ number of blocks in the lOSeg ) 

{ length of name of a boot-loaded segment ) 



- 184 - 



POS Operating System - Module Memory January IS, 1984 



MMMaxBlocks = #10000; { maximum number of blocks in a segment } 
MMMaxCount = #377; ( maximum reference count ) 
MMMaxIntSize - MMMaxBlocks-1 ; 
MMMaxExtSize = MMMaxBlocks; 

type MMBit4 = 0..#17; 
MMBitS = 0..#377; 
MMBitl2 = 0..#7777; 
MMIntSize = 0. .MMMaxIntSize; 
MMExtSize = 1.. MMMaxExtSize; 
MMAddress = integer; 
MMPosition = (MMLowPos, MMHighPos); 

Segment Number = integer; 

SegmentKind = (CodeSegment, DataSegment ) ; 

SegmentMobility = (UnMovable, UnSwappable, LessSwappable, Swappable); 

MMFreeNode = record 
N: MMAddress; 
L: integer 
end; 

MMBlockArray = array CO.. 01 of array [0.. 1271 of integer; 

pMMBlockArray = ''MMBlockArray; 

MMArray = record case Integer of 

1: (m: array (0.. 01 of MMFreeNode); 
2: (w: array[0..0] of Integer) 
end; 

pMMArray = ''MMArray; 

MMPo inter = record case integer of 
1: (P: ^integer); 
2: (B: pMMBlockArray); 
3: (M; pMMArray); 
4: (Offset: MMAddress; 

Segmen: SegmentNumber) 
end; 

SATentry = packed record { Segment Address Table ) 
{ ^m ENTRIES MUST BE TO) WORDS LONG «8ex } 

{ 001 ) 
{ 002 } 
{ 004 } 
( 010 ) 
{ 020 ) 
( 040 } 
{ 100 } 

^m ) { 200 } 
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NotResident 


: boolean; 


Moving 


; boolean; 


Recent lyUsed 


; boolean; 


Heap 


: boolean; 


Kind 


: SegmentKind; 


Full 


: boolean; 


InUse 


; boolean; 


Lost : 


boolean; { 


BaseLower : 


MMBit8; 


BaseUpper : 


MMBit4; 



POS Operating System - Module Memory 



January 16, 



Size 
end; 



: MMBitl2 



{|irc WordSize(SATentry) o 2 then) 

{$MESSAGE X5e9e3BBe« ERROR X*3BBf SAT WRONG SIZE XXXXX X } 

{$ENDC} 

SITentry = packed record case integer of { Segment Information Table } 
{ X5^X ENTRIES MUST BE EIGHT WORDS LONG M^ ) 
1 : { real SIT entry ) 



(NextSeg 
RefCount 
lOCount 
Mobility 
BootLoaded 
Increment 

Swaplnfo 



SegmentNumber; 

C.MMMaxCount; 

O..MMMaxCount; 

SegmentMobility; 

Boolean; 

MMIntSize; (used only if DataSegment and Heap 

false) 
record case (BootLoaded:) Boolean of 
True: (BootLowerAddress: Integer; 
BootUpperAddres s : I nt eger ; 
BootLogBlock: Integer); 
False: (DiskLowerAddress: Integer; 
DiskUpperAddress: Integer; 
Diskid: Integer) 



end; 

case SegmentKind of 
DataSegment: (case (Heap:) Boolean of 
False: (Maximum 



2: 



True: 

); 

CodeSegment: (Update 

); 

( boot time information 
(BootBlock: record 
CS: SegmentNumber; 

SegmentNumber; 

Integer; 

Integer; 

SegmentNumber; 

SegmentNumber; 

integer; 

i nteger 



Freelist 

(HeapNext 

Freelst 



MMIntSize; 
MMAddress); 
SegmentNumber; 
MMAddress) 



TimeStamp) 



) 



end; 



SS: 
H: 
VN: 
FF: 
FC: 
DK: 
CH: 
end) 



initial code segment ) 

initial stack segment ) 

used as interface between SysB and Config) 

system version number ) 

first free segment number ) 

first system code segment ) 

disk system was booted from ) 

char used in booting ) 



($IFC WordSize(SITentry) o 8 then) 

({MESSAGE X9»eX9BBe ERROR X^H^XX SIT WRONG SIZE XXX^eXX ) 

(JENDC) 

SATarray = array [0.. 01 of SATentry; 

SITarray = arrayl0..01 of SITentry; 

pSAT = "SATarray; 
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pSIT = ^SITarray; 

MMEdge = record , „ ^ , 

H: SegmentNumber; { Head ) 

T: SegmentNumber { Tail } 
end; 

SysSegName = packed array [l..SysSegLengthl of Char; 

pSysNames = ^SysNameArray; 

SysNaroeArray = arrayLCOl of SysSegName; 

procedure InitMemory; 

procedure DataSeg( var S: SegmentNumber ); 

procedure CodeOrDataSeg( var S: SegmentNumber ); 

procedure ChangeSize( S: SegmentNumber; Fsize: MMExtSize ); 

procedure CreateSegment( var S: SegmentNumber; 

Fsize, F increment, Fmaximum: MMExtSize ); 
procedure IncRefCount( S: SegmentNumber ); 
procedure SetMobility( S: SegmentNumber; M: SegmentMobility ); 
procedure DecRef Count ( S: SegmentNumber ); 
procedure Setlncrement( S: SegmentNumber; V: MMExtSize ); 
procedure SetMaximum( S: SegmentNumber; V: MMExtSize ); 
procedure SetHeap( S: SegmentNumber; V: boolean ); 
procedure SetKind( S: SegmentNumber; V: SegmentKind ); 
procedure MarkMemory; 

procedure CleanUpMemory; „• . o «• * ^ 

procedure FindCodeSegment( var S: SegmentNumber; Hint: SegHint ); 
procedure EnableSwapping( Where: Integer ); 
procedure DisableSwapping; 
function Current Segment : SegmentNumber; 

exception UnusedSegmentC S: SegmentNumber ); 

Abstract: 

UnusedSegment is raised when the memory manager encounters a 
segment number which references a segment which is not in use. 
This may mean that a bad segment number was passed to some memory 
manager routine or that a bad address was de-referenced. 

Parameters : 

S - Segment number of the unused segment. 
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exception NotDataSegment( S: SegmentNumber ); 
Abstract: 

NotDataSegment is raised when the number of a code segment is 
passed to some memory manager routine that requires the number of 
a data segment. 

Parameters : 

S - Segment number of the code segment. 

exception BadSizeC S: SegmentNumber; Fsize: Integer ); 

Abstract : 

BadSize is raised when a bad Size value is passed to some memory 
manager routine. This usually means that the size passed to 
CreateSegment or ChangeSize is greater than the maximum size or 
less than one. 

Parameters : 

Fsize - The bad Size value, 
exception BadlncrementC S: SegmentNumber; Fincrement: Integer ); 
Abstract : 

Badlncrement is raised when a bad Increment value is passed to 
some memory manager routine. This usually means that the 
increment passed to CreateSegment is greater than 266 or less than 
one. 

Parameters : 

Fincrement - The bad Increment value. 

exception BadMaximum( S: SegmentNumber; Fmaximum: Integer ); 

Abstract : 

BadMaximum is raised when a bad Maximum value is passed to some 
memory manager routine. This usually means that the maximum 
passed to CreateSegment is greater than 266 or less than one. 

Parameters : 

Fmaximum - The bad Maximum value. 
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exception FullMemory; 
Abstract: 

FullMemory is raised when there is not enough physical memory to 
satisfy some memory manager request. This is raised only after 
swapping segments out and compacting memory. 

exception CantMoveSegmentC S: SegmentNumber ); 

Abstract: 

CantMoveSegment is raised when the memory manager attempts to move 
a segment which is UnMovable or has a non-zero 10 count. 

Parameters : 

S - The number of the segment which cannot be moved. 

except i on PartNotMounted ; 
Abstract : 

PartNotMounted is raised when 1) the memory manager attempts to 
swap a data segment out for the first time; and 2) the partition 
which is to be used for swapping is no longer mounted. 

exception SwapInPailureC S: SegmentNumber ); 

Abstract : 

SwapInFailure is raised when the swap file cannot be found for a 
segment which is marked as swapped out. This is an error which 
should never happen in a debugged system. It usually means that 
there is a bug in the memory manager or that the segment tables 
have been clobbered. 

Parameters : 

S - The number of the segment which could not be swapped in. 

exception EdgeFailure; 
Abstract : 

EdgeFailure is raised by MakeEdge when it discovers that the SIT 
entries are not linked together into a circular list. This is an 
error which should never happen in a debugged system. It usually 
means that there is a bug in the memory manager or that the 
segment tables have been clobbered. 
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exception NilPointer; 
Abstract: 

NilPointer is raised when a Nil pointer is used or passed to 
Dispose. 

exception BadPo inter; 

Abstract : 

BadPo inter is raised when a bad pointer is passed to Dispose. 
Parameters : 

exception FullSegment; 
Abstract : 

FullSegment is raised by New when it discovers that there is not 
enough room to allocate and the segment cannot be enlarged (its 
size has reached its maximum). 

exception NoFreeSegments ; 

Abstract : 

NoFreeSegments is raised when the memory manager discovers that 
all of the segment numbers are in use and it needs another one. 
This is equivalent to "Segment table fulT. 

exception SwapError; 

Abstract : 

SwapError is raised if the one of the memory managers swapping 
routines is called when swapping is disabled. This is an error 
which should never happen in a debugged system. It usually means 
that there is a bug in the memory manager. 

var SAT: pSAT; 
SIT: pSIT; 

MMFirst. MMFree, MMLast, MMHeap: SegmentNumber: 
MMHole: MMEdge; 
MMState: (MMScanl, MMScan2. MMScan3, MMScan4, MMScanS. 

MMScane. MMScan?, MMScanS, MMScan9, MMScanlO. 

MMScanl 1 , 

MMNotFound, MMFound); 
StackSegment: SegmentNumber; 
FirstSystemSeg: SegmentNumber; 
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BootFileld: Integer; 

SwappingAllowed: Boolean; 

Swapid: Integer; 

Memory I nBlocks: Integer; { amount of memory on this machine ) 

procedure InitMemory; 

Abstract : 

InitMemory initializes the memory manager. It is called once at 
system initialization and may not be called again. If the system 
was booted from a floppy, the system segments are all marked as 
UnSwappable. 

procedure DataSeg( var S: SegmentNumber ); 

Abstract : 

DataSeg is used to 

1) - Determine if a given segment number represents a data 
segment. 

2) - Find the default heap segment (in the case of an input 
parameter 

of zero). 

Parameters : 

S - Data segment number— zero means the default heap segment. 

Errors : 

UnusedSegment - if S is not in use. 
NotDataSegment - if S is not a data segment. 

procedure CodeOrDataSeg( var S: SegmentNumber ); 

Abstract : 

CodeOrDataSeg is used to 

1) - Determine if a given segment number represents a defined 
segment 

2) - Find the default heap segment (in the case of an input 
parameter 

of zero). 

Parameters : 

S - Data segment number — zero means the default heap segment. 
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Errors: UnusedSegroent if S is not in use. 

procedure ChangeSizeC S: SegmentNumber; Fsize: MMExtSize ); 

Abstract : 

ChangeSize is used to change the size of an existing data segment. 

Parameters : 

S - Number of the segment whose size is to be changed. 
Fsize - New size of the segment. 

Errors : 

UnusedSegment - if S is not in use. 

BadSize - if Fsize is greater than the maximum size of S or less 

than one. 
Full Memory - if there is not enough physical memory to increase 

the size of S. 
CantMoveSegment - if the segment must be moved, but it is not 

movable or its lOCount is not zero. 

procedure CreateSegment( var S: SegmentNumber; Fsize, Fincrement, Fmaximum: 
MMExtSize ); 

Abstract ; 

CreateSegment is used to create a new data segment. The size, 
increment and maximum may be up to 4096 blocks but clearly the 
size will be limited by the available memory. In addition, IT IS 
NOT POSSIBLE TO USE SEGMENTS BIGGER THAN 256 BLOCKS FOR NEW, 
DISPOSE, OR MAKEPTR. Therefore, the only way to address segments 
bigger than 256 bloclcs is using RasterOp, 

Parameters : 

S - Set to the number of the new segment. 
Fsize - Desired size of the new segment in blocks. 
Fincrement - Increment size of the new segment in blocks. 
Fmaximum - Maximum size of the new segment. 

Errors : 

BadSize - if Fsize is greater than Fmaximum or less than one. 
Badlncrement - if Fincrement is greater than MMMaxExtSize or less 

than one. 
BadMaximum - if Fmaximum is greater than MMMaxExtSize or less 

than one. 
Full Memory - if there is not enough physical memory to create the 

segment . 
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procedure IncRefCount( S: SegmentNumber ); 

Abstract: 

IncRefCount increments the number of references to a segment. A 
non-zero reference count prevents a segment from being destroyed. 
A reference count greater than one indicates a system segment. If 
S is a heap, all segments in the heap are incremented. 

Parameters : 

S - Number of the segment. 

Errors: UnusedSegment if S is not in use. 

procedure SetMobility( S: SegmentNumber; M: SegmentMobility ); 

Abstract: 

SetMobility sets the Mobility of a segment. The mobility may be 
set to one of the following values: 

Swappable - segment is a candidate for swapping or moving. 
LessSwappable - segment is a candidate for swapping or moving, 

but the memory manager will be more reluctant to swap. 
UnSwappable - segment may not be swapped, but may be moved. 
UnMovable - segment may not be swapped or moved. The 

RecentlyUsed bit of the segment is cleared also. Thus to 

make a segment a candidate for swapping, set its mobility to 

Swappable (even if it already swappable). 

Parameters : 

S - Segment number. 
M - Mobility. 

Errors : 

UnusedSegment - if S is not in use. 

CantMoveSegment - if the segment is changing from Swappable to 

UnMovabl an attempt is made to move the segment to the high 

end of memory. If it has a non-zero 10 count this error is 

issued. 
Full Memory - if the segment is changing from Swappable to 

UnSwappable, it is swapped out, and there isn't enough memory 

to swap it in. 

procedure DecRef Count ( S: SegmentNumber ); 

Abstract : 

DecRef Count decrements the reference count of a segment by one. 
If reference and 10 counts both become zero: 

- if the segment is a data segment, it is destroyed. 

- if the segment is a code segment, it is destroyed only if it is 

in the screen or is non-resident. If S is a heap, all 
segments in the heap are decremented. 
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Parameters : 

S - Number of the segment. 
Errors: UnusedSegment if S is not in use. 
procedure Setlncrement( S: SegmentNumber; V: MMExtSize ); 
Abstract: 

Set Increment changes the increment size of a data segment. 

Parameters : 

S - Number of the segment. 

V - New increment size. 

Errors : 

UnusedSegment - if S is not in use. 
NotDataSegment - if S is not a data segment. 
Badlncrement - if V is greater than MMMaxExtSize or less than 
one. 

procedure SetMaximum( S: SegmentNumber; V: MMExtSize ); 

Abstract : 

SetMaximum changes the maximum size of a data segment. 

Parameters : 

S - Number of the segment. 

V - New maximum size. 

Errors : 

UnusedSegment - if S is not in use. 

NotDataSegment - if S is not a data segment. 

BadMaximum - if V is greater than MMMaxExtSize or less than one. 

procedure SetHeap( S: SegmentNumber; V: boolean ); 

Abstract : 

SetHeap changes the "Heap** attribute of a segment. This should 
not normally be changed by anyone other than Dynamic. 

Parameters : 

S - Number of the segment. 

V - New value of the "Heap** attribute. 

Errors : 

UnusedSegment - if S is not in use. 
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procedure SetKind( S: SegmentNumber; V: SegmentKind ); 

Abstract: 

SetKind changes the kind (code or data) of a segment. 

Parameters : 

S - Number of the segment. 
V - New kind of the segment. 

Errors: UnusedSegment - if S is not in use. 

procedure MarkMemory; 

Abstract: 

MarkMemory marks all currently in use segments as system segments 
usually before loading a user program) by incrementing their 
reference counts. 

procedure CleanUpMemory; 

Abstract : 

CleanUpMemory destroys all user segments (usually at the end of a 
program execution) by deecrementing the reference count of all 
segments . 

procedure EnableSurapping( Where: Integer ); 

Abstract: 

EnabieSwapping turns the swapping system on, determines where swap 
files should be created, and locates the boot file. 

Parameters : 

Where - Fileld of some file in the partition to be used for swap 
files. 

procedure D i s ab 1 eSwapp i ng ; 

Abstract: 

DisableSwapping attempts to swap in all segments which are swapped 
out and then turns the swapping system off. If there is not 
enough physical memory to swap all segments in, swapping is not 
disabled. 

Errors : 

FullMemory - if there isn't enough memory to swap all segments 
in. 
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procedure FindCodeSegment( var S: SegmentNumber; Hint: SegHint ); 

Abstract: 

FindCodeSegment searches for a code segment in the segment table 
which has a certain SegHint. If such a segment is found, its 
Ref Count is incremented and the segment number is returned. 
Otherwise, a zero segment number is returned. 

Segments which 

1) Have a Diskid equal to Hint. Fid, 

2) Have an Update date/time not equal to Hint. Update, and 

3) Have a Ref Count of zero 

are deleted. This is done because such a segments reference code 
files which have been overwritten and are no longer valid. Such 
segments will not get the memory manager into trouble, but they 
will never be used again, and it is just as well to get rid of 
them. 

X355ex Hint must be a valid hint. That is, the file specified 
9Be5« by Hint. Fid must have a FileWriteDate equal to Hint. Update. 

Parameters : 

S - Return parameter set to zero or the number of the code 

segment . 
Hint - Desired SegHint. 

function Current Segment : SegmentNumber; 

Abstract : 

Current Segment finds the segment number of its caller. 

Result: Current Segment = Segment number of the caller of 
Current Segment . 
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module MultiRead; 

Written by Brad Myers 24 Jul 81. 

Copyright (C) PERQ Systems Corporation, 1981, 1983. 

Abstract : 

This Module exports a procedure to read a file very quickly into 

memory. The memory for the blocks of the file to be read must be 

allocated contiguously before the call is made. Typically, this 
will be done by using CreateSegment. 

Version Number Vl.l 

{//////////////////////////} EXPORTS {WWWWWWWWWWWWW) 

Imports FileSystem from FileSystem; 

Procedure MultiRead(fid: FilelD; addr: pDirBlk; firstBlock,numBlocks: 
integer); 

Procedure Mult iRead( fid: FilelD; addr: pDirBlk; firstBlock,numBlocks: 
integer);. opt ion 

Abstract: 

Does a mult i -sector read on the file specified into the memory 
pointed to by addr 

NOTE: This only works for contiguous files. 

Parameters : 

fid - the filelD of the file to read from. 

addr - the address of the start of the memory to read the file 

into. This must be pre-al located. 
firstBlock - the logical block number of the first to read (the 

first legal value is 0; -1 will not work). 
numBlocks - the count of the number of blocks to transfer. 
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module PasLong; 

PasLong - Extra stream package input conversion routines, 
J. P. Strait & Michael R. Kristofic ca. 15 Sep 81. 
Copyright (C) PERQ Systems Corporation, 1981. 

Abstract: 

PasLong is the extra character input module of the Stream package. 
Its routines are called by code generated by the Pascal compiler 
in response to variations on Read, Readln, Write and Writeln 
statements. It is one level above Module Stream and uses Stream's 
lower- level input routines. 

Version Number V2.2 

exports 

imports Stream from Stream; 

procedure ReadD( var F: FileType; var X: long; B: integer ); 

Abstract : 

Reads a double integer in free format with base B. B can be any 
integer between 2 and 36, inclusive. 

Parameters : 

X - the double to be read. 

F - the file from which X is to be read. 

B - the base of X. It may be any integer between 2 and 36, 

inclusive. If B is less than zero and the user does not type 
an explicit plus or minus sign, X is read as an unsigned 
number. 

Errors : 

PastEof -if an attempt is made to read F past the Eof. 
Not Number - if non-numeric input is encountered in the file. 
LargeNumber - if the number is not in the range -2''31.. 2^32-1. 
BadBase - if the base is not in 2.. 36. 

Design: Number is read into the low order word of two double precision 
integers to avoid overflow. 

procedure WriteD( var F: FileType; X: long; Field, B: integer ); 

Abstract : 

Writes an double integer in fixed format with base B. 

Parameters : 

X - the double to be written. 
F - the file into which X is to be written. 
Field - the size of the field into which X is to be written. 
B - the base of X. It is an integer whose absolute value must be 
between 2 and 36, inclusive. If B is less than zero, X is 
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written as an unsigned number. 
Errors : 

BadBase -if the base is not in 2.. 36. 
Design: 

Value written from two double precision words avoids overflow. 
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module PasReal; 

PasReal - Scott L. Brown Created: 25-Nov-81 
Copyright (C) 1981 - PERQ Systems Corporation 

Abstract : 



PasReal is an extra character input module of the Stream package. 
Its routines are called by code generated by the Pascal compiler 
in response to variations on Read, Readln, Write and Writeln 
statements. It is one level above Module Stream and uses Stream's 
lower- level input routines. 

Version Number V0.2 



exports 

imports Stream from Stream; 

procedure ReadR(var F: FileType; 
var value: real); 

procedure WriteR(var F: FileType; 

e: real; 

TotalWidth: integer; 
FracDigits: integer; 
format: integer); 

procedure ReadR(var F: FileType; var value: real); 

Abstract : 

This procedure reads a real number from the file F, and returns 
its value. 

Parameters : 

F - identifies the file from which to read. 

value - is a return parameter returning the value of the real 
number read from the file F. 

Results: 

This procedure modifies the file buffer for F, and stores the 
value of the real number in value. 

Side Effects: 

This procedure reads characters from the external file F, until it 
receives a character which cannot be part of the real number, and 
it leaves this character in the file buffer. 

There has been only minimal care taken with the file buffer, so if 
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an exception is raised during the read, there is no guarantee 
about its contents. 

Exceptions: 

PastEof - raised if an attempt is made to read beyond the end of 
file. 

NotReal - raised if the stream of characters in file F does not 
correspond to a real number. 

SmallReal - raised if the number read is too small to be 
represented by a 32-bit IEEE-Standard real number. 

LargeReal - raised if the number read is too large to be 
represented by a 32-bit IEEE-Standard real number. 

Calls: 

StreamNaroe - in module Stream for the stream name of file F. 

GetC - in module Stream for reading the next character from file 
F. 

RealMul 

TenPower - returns a real number representing 10.0 raised to an 
integer (range -37.. 38) power. 



Design: 



The regular expression for real numbers is described by a DFA and 
implemented by a case statement, where each element of the case 
statement corresponds to a state in the DFA. This case statement 
stores information about the number read into (primarily) three 
variables: 1) mant - a string buffer containing the mantissa, 2) 
scale_f actor - any adjustment to the mantissa (as a power of ten), 
and 3) exp - the exponent of the number read. 

After the DFA has substringed out the mantissa characters, they 
are converted to a real number by successive divisions by 10.0. 

To combine this information into a real number, the scale_f actor 
is added to the exponent and this sum is the power of ten"exp)onent 
of the mantissa. To combine sum with the mantissa, it has to be 
converted to a real number, which is done by the function 
TenPower. Then the result of TenPower is multiplied with the 
mantissa to produce the real number returned as value. 

Much care has been taken to avoid calls to TenPower with actual 
parameters which are out of range, and also to minimize the number 
of real multiplications necessary (this to avoid error 
propogation). 
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procedure WriteR(var F: FileType; e: real; TotalWidth: integer; FracDigits: 
integer; format: integer); 

Abstract : 

This procedure writes a real number to a file F, under the given 
format specifications. 

Parameters : 

F - the file to which to write. 

e - the value to write. 

TotalWidth - the minimum number of characters to write. 

FracDigits - the number of characters in the fractional part (used 
for fixed format only). 

format - indicates either fixed or floating format. 

Results: 

The file buffer for F is modified by procedures nested in this 
one. 

Calls: 

StrearaName - in module Stream for the stream name of file F. 

base2_to_basel0 

normalize 

Design: 

There is some initialization, then if the real number to be 
written is zero, eWritten and ExpValue are obviously zero, else 
the real number needs to be converted to base 10 giving eWritten 
and ExpValue. Then a call is made to a procedure for the desired 
format . 

The design here follows as much as possible the ISO Standard 
description for writing Pascal real numbers, in particular, the 
choice of many variable names. 



- 202 - 



POS Operating System - Module PERQ_String January 15, 1984 

module PERQ.String; 

PERQ String hacking routines. 

Written by: Donald Scelza 

Copyright (C) 1980, 1981, 1982 PERQ Systems Corporation 

Abstract : 

This module implements the string hacking routines for the PERQ 
Systems PERQ Pascal. 

Version Number V2.10 

{355e55553C-5{555f555e553?55X553f5?55355e} Exports { 59f 3e353«e5Be5Be35353e35X5»3e3ae } 

Const MaxPStringSize=256; { Length of strings} 
Type PString = String[MaxPStringSizel ; 

Procedure Adjust (Var SYR: PString; LEN: Integer); 

Function Concat(Strl, Str2: PString): PString; 

Function Subs tr( Source: PString; Index, Size: Integer): PString; 

Procedure Delete(Var Str: PString; Index, Size: Integer); 

Procedure Insert(Var Source, Dest: PString; Index: Integer); 

Function Pos( Source, Mask: PString): Integer; 

Function PosC(s: PString; c: Char): Integer; 
Procedure AppendString(var si: PString; s2: PString); 
Procedure AppendChar(var s: PString; c: Char); 
Function UpperCase(c: Char): Char; 
Procedure ConvUpper(Var s: PString); 

Exception StrBadParm; 

Abstract : 

Raised when bad index or length parameters passed to procedures or 
sometimes when string will be too long (other times, StrLong is 
raised in this case 

Function RevPosC(s: PString; c: char): integer; 

Procedure PrependChar (c: char; var s: PString); 

Function IntToStr (N: integer): PString; 

Function Pad (PadCh: char; str: PString; len: integer): PString; 

Function Upper (s: string): PString; 

Procedure Adjust (var Str: PString; Len: Integer); 

Abstract: 

This procedure is used to change the dynamic length of a string. 

Parameters : 

Str is the string that is to have the length changed. 

Len is the new length of the string. This parameter must be This 
value must be no greater than MaxPStringSize. 
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Environment: None 

Results: This procedure does not return a value. 

Side Effects: This procedure will change the dynamic length of Str. 

Errors: If Len > MaxPStringSize then raise StrLong exception. 

Design: Simple. 

Funct i on Concat ( St r 1 , Str2 : PStr i ng ) : PStr i ng ; 
Abstract: 

This procedure is used to concatenate two string together. 
Parameters : 

Strl and Str2 are the two strings that are to be concatenated. 

Environment: None 

Results: This function will return a single string as described by the 
parameters . 

Errors: If Length(Strl) + Length(Str2) is greater then MaxPStringSize 
then raise StrLong exception. 

Function SubStr( Source :PSt ring; Index, Si ze : Integer): PStr ing; 

Abstract : 

This procedure is used to return a sub portion of the string 
passed as a parameter. 

Parameters : 

Source is the string that we are to take a portion of. 

Index is the starting position in Source of the substring. 

Size is the size of the substring that we are to take. 

Environment: None 

Results: This function returns a substring as described by the 
parameter list. 

Errors: If Index or Size are greater than MaxPStringSize then raise 
StrBadParm exception. 
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Procedure Delete(var StriPString; Index, Size: Integer); 

Abstract: 

This procedure is used to remove characters from a string. 

Parameters : 

Str is the string that is to be changed. Characters will be 
removed from this string. 

Index is the starting position for the delete. 

Size is the number of character that are to be removed. Size 
characters will be removed from Str starting at Index. 

Environment: None 

Results: This procedure does not return a value. 

Side Effects: This procedure will change Str. 

Errors: None 

Procedure Insert(var Source, Dest:PString; Index: Integer); 

Abstract : 

This procedure is used to insert a string into the middle of 
another string. 

Parameters : 

Source is the string that is to be inserted. 

Dest is the string into which the inseration is to be made. 

Index is the starting position, in Dest, for the inseration. 

Environment: None 

Results: This procedure does not return a value. 

Side Effects: This procedure will insert Source in Dest starting at 
location Index. 

Errors: If the resulting string is too long then generate a runtime 
error. 

Procedure AppendString(var si: PString; s2: PString); 

Abstract : 

puts s2 on the end of si 

Parameters : si is the left String and s2 goes on the end. 
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Cal 1 s : PerqStr i ng . Concat . 
SideEffects : modifies si. 
Procedure AppendChar(var s: PString; c: Char); 
Abstract: 

puts c on the end of s 
Parameters : s is the left String and c goes on the end. 
SideEffects : modifies s. 
Function UpperCase(c: Char): Char; 
Abstract : 

Changes c to uppercase if letter. 
Parameters : 

c is any char. 
Returns: char is uppercase if letter otherwise unchanged. 
Procedure ConvUpper(Var s: PString); 
Abstract : 

Converts s to all upper case 
Parameters : 

s, passed by reference, to be converted 
Function PosC(s: PString; c: char): integer; 
Abstract: 

Tests if c is a member of s. 
Parameters : 

c is any char; s is string to test for c member of. 

Returns: index of first c in s (from beginning of string) or zero if 
not there. 
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Function RevPosCCs: PString; c: char): integer; 
Abstract: 

Tests if c is a member of s. 
Parameters : 

c is any char; s is string to test for c member of. 

Returns: index of first c in s (from end of string) or zero if not 
there. 

Function Pos( Source, Mask:PString): Integer; 

Abstract: 

This procedure is used to find the position of a pattern in a 
given string. 

Parameters : 

Source is the string that is to be searched. 

Mask is the pattern that we are looking for. 

Environment: None 

Results: If Mask occured in Source then the index into Source of the 
first character of Mask will be returned. If Mask was not found 
then return 0. 

Side Effects: None 

Errors: None 

Procedure PrependChar (c: char; var s: PString); 

Abstract : 

puts c at the beginning of s 
Parameters : 

s is the original String and c goes on the front. 
Side-Effects: modifies s if c is not Nul. 
Calls: Adjust (from PERQ^String). 
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function IntToStr (N: integer): PString; 

Abstract: 

Converts the integer N to a string. 

Calls: PrependChar. 
function Pad (PadCh: char; str: PString; len: integer): PString; 

Abstract : 

Forces a string to a certain length using PadCh to left justify. 

Returns: The longer string (preceeded by PadCh 's). 

Calls: PrependChar. 
function Upper (s: string): PString; 

Abstract : 

Makes the ConvUpper procedure (of CmdParse) into a function. 
Makes s into all capital letters. 

Returns: the upper case equivalent of string s 

Calls: ConvUpper from PERQ_String 
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module PMatch; 

Abstract: 

Does pattern matching on strings 

Patterns accepted are as follows: 

*'35** matches or more characters. 

**&" matches 1 or more characters. 

**#*• matches exactly 1 character. 

*"0'* matches any digit. 

**'A*' matches any alphabetic (capitals only unless casefold). 

•"a" matches any alphabet ic( lower case only unless 'casefold'). 

-'a*' matches any non-alphanumeric. 

•"X" matches '9f', other patterns chars can be quoted also. 

Written by: Gene Ball at CMU 

Version Number V2.6 

{ ///////////////////////////// } Exports { \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\ ) 

Type pms255 = String[255); 

Function PattMatch(var str, pattern: pms256; fold: boolean): boolean; 
Function PattMap(var str,inpatt,outpatt,outstr:pms255; fold: boolean): 

boolean; 
Procedure PattDebug(v: boolean); 
Function IsPatternTvar str: pms255): boolean; 

Exception BadPatterns; 

Abstract : 

Raised if outPatt and inPatt do not have the same patterns in the 
same order for PattMap 

Procedure PattDebug(v: boolean); 

Abstract : 

Sets the global debug flag 
Parameters : 

V is value to set debug to 
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SideEffects: Changes debug value 

Function IsPattern(var str: pms255): boolean; 

Abstract: 

Tests to see whether str contains any pattern matching characters 

Parameters : 

str - string to test. If not pattern then removes all quotes. 

Returns: true if str contains any pattern matching characters; else 
false 

Function PattMatch(var str, pattern: pms255; fold: boolean): boolean; 

Abstract : 

Compares str against pattern 

Parameters : 

str - full string to compare against pattern; 

pattern - pattern to compare against. It can have special 

characters in it 
fold - determines whether upper and lower case are distinct. If 

true then not. 

Returns: true string matches pattern; false otherwise 

Function PattMap(var str,inpatt,outpatt,outstr:pms255; 

fold: boolean): boolean; 

Abstract : 

Compares str against inPatt, putting the parts of str that match 
inpatt into the corresponding places in outpatt and returning the 
result 

EXAMPLES: 

PattMap('test9.pas', 'test '0. pas', 'xtest '0. pas ')=> TRUE, 
'xtest9.pas' 

PattMap('test9.pas', 'X.pas', 'X.ada') => TRUE, 'test9.ada' 

Parameters : 

str - full string to compare against pattern; 

inpatt - pattern to compare against. It can have special 

characters in it 
outpatt - pattern to put the parts of str into; it must have the 

same special characters in the same order as in inpatt 
outStr ~ the resulting string if PattMap returns true; 
fold-determines whether upper and lower case are distinct. It 

true then not. 
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Returns: true string matches pattern; false otherwise 

Errors: Raises BadPatterns if outPatt and inPatt do not have the same 
patterns in the same order 
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module PopCmdParse; 

Abstract : 

This module provides procedures to help with PopUp menus. See the 
module PopUp for the definition of pNameDesc and for some useful 
procedures for creating and destroying pNameDescs. 

Written by Brad Myers Nov 18, 1981 

Copyright (C) 1981 PERQ Systems Corperation 

Version Number VI. 9 

{%^9$xx3e^%%3sae%xas3e3BS3BS} Exports { 9&sBaeBSXxxsagxxxxxxxxx } 

Imports CmdParse from CmdParse; 
Imports PopUp from PopUp; 

Function PopUniqueCmdIndex(Cmd: CString; Var names: pNameDesc): Integer; 

Function GetCmdLineC Procedure IdleProc; prompt: String; 

var line, cmd: CString; var inF: pCmdList; 
var names: pNameDesc; var firstPress: boolean; 
popOK: boolean): integer; 

Function GetShellCmdLine(var cmd: CString; var inF: pCmdList; 
var names: pNameDesc): integer; 

Function GetConfirm( Procedure IdleProc; popOK: boolean; 

prompt: String; def: integer; 
var switches: pSwitchRec): integer; 

Procedure Null IdleProc; 

Procedure Nu 1 1 I d 1 eProc ; 

Abstract : 

This procedure does nothing. It is useful as an IdleProc 
parameter to other procedures when no IdleProc is needed. 

Function PopUniqueCmdIndex(Cmd: CString; Var names: pNameDesc): Integer; 

Abstract : 

This procedure is used to do a unique lookup in a popUp command 
table. It is the same as UniqueCmd Index except the table of names 
is the kind used by popUp menus. If cmd is the full name of one 
of the names in names, even if is also a sub-part of other names. 
It is returned as the one found. 

Parameters : 

Cmd - the command that we are looking for. 

CmdTable - a table of the valid commands. The first valid command 

in this table must start at index 1. 
NumCmds - the number of valid command in the table. 
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Returns: The index of Cmd in CmdTable. If Cmd was not found then 

return NumCmds +1. If Cmd was not unique then return NumCmds+2. 

Function GetShellCmdLine(var and: CString; var inF: pCmdList; var names: 
pNaroeDesc): integer; 

Abstract : 

This routine is similar to GetCmdLine except that it works on the 
command line specified to the Shell. It is should be used by 
programs that use GetCmdLine to parse the Shell command line. 
Command files are handled by GetShellCmdLine. The user can call 
ParseCmdArgs after GetShellCmdLine to get the arguments to the 
command. 

Parameters * 

cmd - the first command taken off the line. This will be valid 
even if the return value is greater than numCommands. It 
will be " if no command found before the first significant 
break character. 

inF - a command file list created by InitCmdFile. Just call 
InitCmdFile and pass in the inF returned. This procedure 
manages the list and handles all command files. 

names - a variable length array of names used for popUp menus and 
for matching the input cmd against. 

Returns : 

Identical to GetCmdLine. Viz: index in the array or 

numCommands + 1 ==> Name not found in array 

numCommands + 2 => Name not unique 

numCommands + 3 => Name was empty 

numCommands + 4 => First command was a switch (it is in Cmd). 

numCommands + 5 ==> Illegal character found after command. 

Function GetCmdLine(X Procedure IdleProc; prompt: String; 

var line, cmd: CString; var inF: pCmdList; 
var names: pNameDesc; var firstPress: boolean; 
popOK: boolean): integer X); 

Abstract : 

Reads a line from the input file. While waiting for a CR or a 
press do IdleProc. If press, then create a popUp window. Put 
name selected into line and return index. If type a line, put it 
into line. If first ID in line is not a switch then check to see 
if in names. If so, returns index. If not unique then returns 
numCommands+2. If not found then returns numCommands+1 . If line 
was empty (naked CR or comment), then returns numCommands+3. 
numCommands+4 => switch. numCommands+5 => illegal character after 
command. 
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Parameters : 

IdleProc - This procedure is called repeatedly until a full line 
is typed. It should execute quickly and not futz with the 
keyboard or stream. An application is a procedure that 
displays the time in the title line. 

prompt - the prompt string to print for the user. Do not put the 
prompt separator (>) on the end of the prompt; GetCmdLine 
will do that for you. If reading from a command file, 
GetCmdLine change the prompt appropriately. 

line - set to the line read including starting with the first 
significant character after the first command. It will not 
contain any comments. 

cmd - the first command taken off the line. (It is not in line). 
This will be valid even if the return value is greater than 
numCommands. It will be " if no command found before the 
first significant break character. 

inF - a command file list created by InitCmdFile. Just call 
InitCmdFile and pass in the inF returned. This procedure 
manages the list and handles all command files. The 
application calling GetCmdLine will never see an 'a'. 

names - a variable length array of names used for popUp menus and 
for matching the input cmd against. 

firstPress - USER MUST SET firstPress to true before first call to 
this procedure and then not modify it. 

popOk - if true, then GetCmdLine will allow a PopUp menu when 
press on button to chose an item. If false, then no popUp 
allowed. 

Returns: 

index into the names array or: 

numCommands + 1 => Name not found in array 

numCommands + 2 => Name not unique 

numCommands + 3 => Name was empty 

numCommands + 4 => First command was a switch (it is in Cmd). 

numCommands + 5 ==> Illegal character found after command. 

Calls: Next I dSt ring, PopUniqueCmd Index, Menu (from PopUp), Poplnit, 
lOSetModeTabiet, lOCursorMode, FullLn, ReadLn, DestroyRes, 
DoCmdFile, ExitCmdFile, RemDeli miters 

Function CJetConfirm(X Procedure IdleProc; popOK: boolean; 

prompt: String; def: integer; 
var switches: pSwitchRec): integer X); 

Abstract : 

Handles a question that is answered Yes or No where the answer 
should come from the keyboard. Prompt followed by default (if 
any) is printed. Prompt may be null. If illegal input is typed, 
GetConfirm re-asks but doesn't use prompt. 
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Parameters : 

IdleProc - This procedure is called repeatedly until a full line 

is typed. It should execute quickly and not futz with the 

keyboard or stream. An application is a procedure that 

displays the time in the title line. 
prompt - the prompt to display for question, 
default - index of the default answer: 1 = true or yes; 2 = false 

or no; other numbers mean no default. 
popOK - tells whether a popUp window is allowed, 
switches - set to NIL or a list of switches specified. Be sure to 

handle the switches first since one might be HELP. 

Returns: 1 if true or yes. 

2 if false or no. 

3 if naked return when no default and switches o NIL. This means 
that there was no argument but a switch was hit. If an answer is 
still needed, the application should re-call GetConfirm. 
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module PopUp; 

Written by Brad A. Myers 16-Nov-80 

Abstract : 

Til is program produces pop up windows that replace the screen area 
at a specified cursor location. The cursor is then changed and 
PopUp waits for a press. Whenever the cursor is inside the • 
window, the command at that point is highlighted. If a press is 
done inside the window, the highlighted command is selected. The 
user can control whether one or more than one command should be 
selected before window is removed. If a press outside, no command 
is executed. In any case, the window is erased and the original 
contents of that area is returned 

Copyright (C) 1981, 1982, 1983 - The PERQ Systems Corporation 

Version Number V3.1 

{ _3f_x-5C-X-X-X-X-5C-X-36-»-X-X-X- } EXPORTS { -X-X-X-X-X-X-X-X-X-Sf-X-X-SS-X- } 

Exception BadMenu; 

Abstract: 

Raised when parameters are illegal. 

Resume: NOT ALLOWED. 

Exception Outside; 

Abstract : 

raised when press outside of menu. 

Resume: NOT ALLOWED. 
Exception PopKeyHit; 

Abstract : 

raised when a key is hit and aborting on keys is enabled by 
calling AbortOnKey(true). The key is left in the input buffer. 

Resume: NOT ALLOWED. 

Type s25 = String[251; 

NameAr = Arraytl..!] of s25; 
pNameAr = ''NameAr; 
NameDesc = Record 

header: s25; 
numCommands : i nteger ; 
commands: NameAr; 
End; 
pNameDesc = "NameDesc; 
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ResRes = ^ResArray; 

ResArray = Record 

numlndices: integer; 

pressVal: Integer; {TabMouse value when pressed) 
indices: Array[l..l] of integer; 
End; 

Procedure Menu( names: pNameDesc; isList: boolean; 

first, last, curX, curY, maxYsize: integer; VAR 
res: ResRes); 

Procedure InitPopUp; 

Procedure DestroyRes(var res: ResRes); 

Procedure AbortOnKey( abort : boolean); 

Procedure AllocNameDesc(numNames, seg: Integer; Var names: 

pNameDesc); 

Procedure DestroyNameDesc(Var names: pNameDesc); 

Procedure DestroyNameDesc(Var names: pNameDesc); 

Abstract : 

Delete names. It should have been created by AUocateNameDesc. 
The numCommands field better be the same as set when allocated. 

Parameters : 

names - The storage for names is deallocated and names is set to 
NIL. 

Procedure InitPopUp; 

Abstract : 

creates cursors needed to malce PopUp windows work. This should be 
called once before calling menu. 

Environment: sets cursors. Sets the global abort on keyboard typing to 
false. 

Procedure AbortOnKey( abort : boolean); 

Abstract: 

Sets the global flag that determines whether to abort on keyboard 
typing. If this is not called, then PopUp does not abort when 
there are keys. If this is called with TRUE, then the exception 
PopKeyHit is raised when a key is typed. The key is left in the 
input buffer. 
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Procedure DestroyRes(var res: ResRes); 

Abstract: 

Deallocates storage for res and sets it to NIL 

Parameters : 

res is ResRes to destroy 

Procedure Menu (names: pNameDesc; isList: boolean; 

first, last, curX, curY, maxYsize: integer; VAR res: ResRes); 

Abstract : 

puts up a window with commands stacked vertically with the center 
at curX, curY. Allocates off the heap enough storage for old 
picture at that place so can restore it. Deallocates all storage 
when done. 

Parameters : 

names - a pointer to an array of names to put in the menu, 
header - is put at the top of the menu. It may be empty in which 

case there is no header, 
numcommands - the number of names in the array, 
commands - an array of names to display. These can be generated 

by having pNameDesc with an array of the correct (or larger 

than the correct) size and recasting it into a pNameDesc, or 

by creating a segment to hold all the names that will be 

needed. 
isList - if true says that a number of commands can be selected. 

if false. Menu returns as soon as the first command is 

selected, 
first - the index of the first command in names ''.commands to 

display. To display all items, use 1. 
last - the index of the last command in names*. commands to 

display. To display all items, use names ^.numCommands. Last 

must be greater than first. 
curX - the x position at which to display the menu. If -1 then 

uses current pen position. 
curY - the y position at which to display the menu. If -1 then 

uses current pen position. 
maxYsize - the maximum size in bits of the menu. If -1, then menu 

will be big enough to hold all items (up to the size of the 

screen). maxYsize must be greater than 435(fontHeight+4) 

which is 68 for the default font, 
res - is set with an answer array. This array is allocated off 

the heap by Menu. Use DestroyRes to deallocate it. If Menu 

is exited via *C or a press outside, then res is not 

allocated. The fields of res are set as follows: 
numlndices - the number of items selected. If not isList then 

will be 1. If isList, will not be zero 
indices - a variable length array of the indices of the names 

chosen. They are in increasing order irrespective of the 

order the names were picked. 
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Errors: Catches CtlC and raises CtlCAbort after removing the menu. 
Catches CtlShiftC and erases menu then re-raises CtlShiftC. 
Catches HelpKey and erases menu and then re-raises. If continued, 
then raises OutSide. Raises OutSide if press outside of the menu 
window. Raises BadMenu if parameters are illegal. 

Environment: Requires enough memory be on the heap for picture. 
Requires that InitPopup has been called. 

Procedure AllocNameDesc(numNames, seg: Integer; Var names: pNameDesc); 

Abstract : 

There are two ways to allocate the storage for a NameDesc. One is 
to declare in your program a type with an array of the correct 
size and the other fields exactly the same way. You then RECAST a 
pointer to that array into a pNameDesc. The other way is to use 
this procedure. It allocates the storage for numNames out of a 
segment. Turn off range checking when assigning or accessing the 
array. 

NOTE: To deallocate the nameDesc returned, use DestroyNameDesc 

Parameters : 

numNames - the number of names in the array. 

seg - the segment to allocate the nameDesc out of. If zero, then 

uses the default segment. This procedure uses NewP so the 

segment can have other things in it also, 
names - set with the newly allocated pNameDesc. Its numCommands 

field is set with numNames. Do not change this size or the 

deallocation will not work. 
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module PopUpCurs; 

Written by Brad A. Myers 

Copyright (C) 1981 - PERQ Systems Corporation 

Version Number V2.2 

{ .9f_x-X-3e-X-X-X-X-36-X-X-X-X-X-X-X- ) EXPORTS 

Type CursType = (Default, Select, Scroll, Dolt, Bar); 
FootAr = ARRAY [0..8] of ARRAY 10.. 31 of Integer; 
pFootAr = ''FootAr; 

Procedure InitCurs; 
Procedure DestroyCurs; 
Procedure SetCurs(t: CursType); 

Procedure InitFooter(VAR scrollP: pFootAr; VAR spotP: pFootAr; 

VAR footW: integer); 

Procedure DestroyCurs; 

Abstract : 

Deallocates storage used for cursors 

SideEffects: Deallocates storage for cursors 

Environment: Must not be called before InitCursor is called 

Procedure SetCursCt: CursType); 

Abstract: 

Sets the cursor to the picture specified 

Parameters : 

t is the cursor picture to set to 
Procedure InitCurs; 

Abstract: 

allocates storage used for cursors, and sets the cursors with the 
data for the pictures 

SideEffects: allocates storage for cursors 
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Procedure InitFooterCVAR scrollP: pFootAr; VAR spotP: pFootAr; 
VAR footW: integer); 

Abstract : 

Allocates storage for pointers and fills in with right pictures. 

Parameters : 

all parameters are set by InitFooter. scroUp is the pointer to 
rasterOp from for the scroll bar and spotp is the pointer to the 
raster for the spot. footW is the width of the array. 
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module Profile; 
Abstract: 

This module is used to get information from the user profile file. 

Written by: Don Scelza 

Copyright (C) PERQ Systems Corperation, 1981 

Version Number Vl.l 

{%3S3e3e9s%3e3i%x-3s%xx%^9e^) Exports { xxsaexxxxxxxxxsexxxxxx } 

This module provides facilities that will allow a program to get information 
from the user profile. 

The profile file is a text file that has the form: 

#<Subsystem name> <Line of text for that sub system> 
<More text for that subsystem> 

#<Next subsystera> — 

The base unit of the file is a text line. The function that provides values 
from the profile file will return a line of text each time that it is 
called. All text line between the #<Subsystem name> and the next 
#<Subsystem name> are assumed to be assoicated with the first subsystem. 
Successive calles to PFileEntry will return the next line of text for the 
current subsystem. 

Exception PNotFound(FileName: String); 

Abstract : 

Raised when profile file cannot be found 

Parameters : 

fileNaroe is profile not found 

Exception PNotlnited; 

Abstract : 

Raised when a profile procedure is used but PFilelnit not called 
first 

Type ProfStr = Stringl2551; 

procedure PFileInit(PFileName, Subsystem: ProfStr); 

function PFileEntry: ProfStr; 
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procedure FFilelnitCPFileName, Subsystem: ProfStr); 

Abstract: 

This procedure is called each time a subsystem wishes to start to 
read information from the profile file. It is only called once 
per subsystem invocation. It will lookup the profile file and 
search for the required subsystem. 

Parameters : 

PFileName is the name of the profile file that is to be used. 

Subsystem is the name of the subsystem that is to be searched for. 

Side Effects: This procedure will change Inited, Inline and PFile. 

Errors: If PFileName was not found then raise PNotFound. 

function PFileEntry: ProfStr; 

Abstract : 

This procedure is used to get the next profile entry for a 
subsystem. 

Results: This procedure will return the next line from the profile file 
for the current subsystem. If there are no more lines for the 
current subsystem return null. 

Environment: PF 11 el nit must have been called before this procedure is 
used. Uses the global InLine. Sets InLine to be empty. 

Errors: If PFilelnit was not called then raise PNotlnited. 
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module Quicksort; 

Copyright (C) 1981 PERQ Systems Corporation 
Written by: Mark G. Faust 
Abstract: 

Hoare's Quicksort algorithm with some simple optimizations. This 
module provides two procedures, IntegerSort and StringSort, which 
sort arrays of integers and strings respectively. 

For a detailed description of the algorithm and references to 
papers on its analysis see [Robert Sedgewick, "Implementing 
Quicksort Programs," in CACM 21(10), 1978.) 

Because of rigid type checking of arrays in Pascal, pointers to 
the arrays to be sorted are passed along with an integer 
specifying the length of the array. The procedures require that 
the array be declared [0..N+11 where the 0th through Nth elements 
are to be sorted. The additional array element is used to speed 
up the sorting routine. Before passing the array pointer to the 
sort procedure it is RECAST as either a IntegerArrayPtr or a 
StringArrayPtr. An example for the integer sort is given below. 
The string sort is analogous. 

program ShowSort ( i nput , output ) ; 

imports Quicksort from Quicksort; 

const Size = 99; 

type MyArray = arrayIO..Size+ll of integer; 

var MyArrayPtr : ''MyArray; i : integer; 

begin new (MyArrayPtr); 

for i := to Size do readln(MyArrayPtr''[i] ); 

I ntegerSort ( Si ze , recast ( MyArrayPtr , PI ntArray ) ) ; 

for i := to Size do writeln(MyArrayPtr'*[il); end. 

exports 

type 

ss25 = String[25]; 

I ntArray = array (0.. 01 of integer; 

StrArray = array CO.. 01 of ss25; 

PI ntArray = ^ I ntArray; 
PStrArray = ^StrArray; 
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procedure IntegerSort(N : integer; A : Pint Array); 

procedure StringSort(N : integer; A: PStrArray; Fold : boolean); 

procedure IntegerSort(N : integer; A : Pint Array); 

Abstract : 

Given an integer N and a pointer to an array [0..N+11 of integers, 
sort [0..N1 into ascending order using Quicksort. 

Parameters : 

N : integer One less than the upper bound of the array. It is 
the largest index of a valid key. 

A :PIntArray A pointer to an array [0..N+1] of integers. 

Results: The array from [0..N] is in ascending order 

Side Effects: The array is sorted and the N+lst element contains MaxInt 

procedure StringSortCN : integer; A : PStrArray; Fold : boolean); 

Abstract : 

Given an integer N and a pointer to an array I0..N+11 of strings, 
sort [0..N1 into ascending lexigocraphic order using Quicksort. 
StringSort is case sensitive (e.g. A < a) unless Fold is True. 

Parameters : 

N : integer One less than the upper bound of the array. It is 
the largest index of a valid key. 

A : PStrArray A pointer to an array [0..N+1] of strings. 

Fold : boolean If True then we fold to UpCase for comparisons. 
Results: 

The array from [CNl is in ascending order 

Side Effects: 

The array is sorted and the N+lst element contains the DEL 
character 
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mcxiule RandomNumbers; 

J, P. Strait 15 Sep 80. 

Copyriglit (C) PERQ Systems Corporation, 1980. 

Module RandomNumbers contains two routines: 

InitRandom - initializes the random number generator. 

Random - a function which returns a new random number each time 
it is referenced. 

There is currently no way to seed the generator. 

Random is a feedback shift -register pseudo-random number generator. 
The algorithm used is one described in the article: 

'Generalized Feedback Shift Register Pseudorandom Number 

Generator ' 

T. G. Lewis and W. H. Payne 

JACM Vol. 20, No. 3, July 1973, pp. 456-468. 

Random produces multidimensional pseudo-random numbers equally 

distributed in the interval -32768.. 32767 and has a period of 

2^98. 

Version Number VI. 2 

{////////////////////////////} exports {\\\\\\\\\\\\\\\\\\\\\\\\\} 

procedure InitRandom; 
function Random: integer; 

Procedure InitRandom; 

Abstract : 

Initialize the random number generator. Every time this is 
called, the random numbers start over at the same place. 

Function Random: integer; 

Abstract : 

returns a random 16-bit number 
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module Raster; 

Copywrite (C) 1980 - The PERQ Systems Corporation 

exports 

Const RRpi = 0; { Raster Op function codes ) 

RNot = 1 

RAnd = 2 

RAndNot = 3 

ROr = 4 

ROrNot = 5 

RXor = 6 

RXNor = 7 

Type RasterPtr = ^RasterArray; {a pointer that can be used as RasterOp 

or Line source and destination ) 
RasterArray = Array[0..0] of integer; 
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module ReadDisk; 
Abstract: 

Module to Read and write to the disk using a buffer system 

Written by the CMU Spice Group 

Version Number VI. 5 

{39f3e5555553«55X355535355Be3e5»} exports {*3f*3«5He553e59e39e*3Bf5e3535X55353«««^ 

impxDrts DisklO from DisklO; 

function ReadDisk(addr : DiskAddr) : ptrDiskBuffer; 

function ChangeDisk(addr : DiskAddr) : ptrDiskBuffer; 

function ReadHeader(addr : DiskAddr) : ptrHeader; 

function ChangeHeader(addr : DiskAddr) : ptrHeader; 

procedure FlushDisk(addr : DiskAddr); 

procedure WriteDisk(addr : DiskAddr; ptr : ptrDiskBuffer; hdptr : 

ptrHeader); 
procedure WriteHeader(addr : DiskAddr; ptr : ptrDiskBuffer; hdptr : 

ptrHeader); 

procedure I n i tBuf f ers ; 

function FindDiskBuffer(dskaddr : DiskAddr; alwaysfind : boolean) : 

integer; 
procedure ReleaseBuffer(indx : integer); 
procedure FlushBufferdndx : integer); 
procedure FlushAll; 

procedure ChangeBufferdndx : integer); 
procedure ChgHdr(indx : integer); 
procedure UseBuffer(indx,numtimes : integer); 
function BufferPointer(indx : integer) : ptrDiskBuffer; 
function HeaderPointer(indx : integer) : ptrHeader; 
function ReadAhead(addr : DiskAddr) : ptrDiskBuffer; 
procedure ForgetAll; 

Exception FlushFaiKmsg: String; operation: DiskCommand; addr: DiskAddr; 
softStat: integer); 

Abstract : 

Raised when the system is unable to flush out a buffer. The 
buffer is marked as flushed out, however, so the error will not 
repeat the next time a buffer needs to be flushed 

Parameters: 

Same as DiskFailure (in DisklO) 

Resume: ALLOWED, but has no effect (procedure returns normally as if 
flush had been successful) 
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Function ReadDisk(addr : DiskAddr) : ptrDiskBuffer; 
Abstract: 

Read the block specified and return the ptr of the buffer read 
into 

Parameters : 

addr is the address of the block to read 

Returns: ptr to buffer read into 

Function ReadAhead(addr : DiskAddr) : ptrDiskBuffer; 

Abstract : 

Identical to ReadDisk 

Parameters : 

addr is the address of the block to read 

Returns: ptr to buffer read into 

Function ReadHeader(addr : DiskAddr) : ptrHeader; 

Abstract: 

Reads block specified and returns a ptr to a buffer describing its 
header 

Parameters : 

addr is the address of the block to read 

Returns: ptr to header read into 

Function ChangeDisk(addr : DiskAddr) : ptrDiskBuffer; 

Abstract : 

Reads block specified and returns a ptr to its data; in addition, 
mark file as changed so flush will write it out 

Parameters : 

addr is the address of the block to read 

Returns: ptr to buffer holding the block read into 
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Function ChangeHeader(addr : DiskAddr) : ptrHeader; 

Abstract: 

Reads block specified and returns a ptr to its data; in addition, 
mark file as header changed so flush will write it out using 
lOWriteFirst 

Parameters : 

addr is the address of the block to read 

Returns: ptr to header read into 

Procedure FlushDisk(addr : DiskAddr); 

Abstract : 

Removes block specified from buffer system and writes it out if 
changed. If addr not in buffer then NO-OP 

Parameters : 

addr is block to flush 

Procedure WriteDisk(addr: DiskAddr; ptr: ptrDiskBuffer; hdptr: ptrHeader); 

Abstract : 

Writes out a block using DskWrite. If block for addr is in a 
buffer then Release it first. 

Parameters : 

addr - the address of the block to write 
ptr - points to a buffer of data 
hdptr - points to a buffer of header 

Procedure WriteHeader(addr : DiskAddr; ptr : ptrDiskBuffer; 
hdptr : ptrHeader); 

Abstract : 

Writes out a block using DskFirstWrite. If block for addr is in a 
buffer then Release it first. 

Parameters : 

addr is the address of the block to write ptr points to a buffer 
of data hdptr points to a buffer of header 
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Procedure InitBuffers; 

Abstract: 

Initializes the buffer system 

function FindDiskBuffer(dskaddr: DiskAddr; alwaysfind: boolean): integer; 

Abstract : 

Finds the buffer that contains the data for block dskAddr. 

Parameters : 

dskAddr - is address to find buffer for alwaysFind tells whether 
to read in if not found 

Returns: Index of buffer found or zero if not there 

Procedure ReleaseBufferdndx : integer); 

Abstract : 

Mark the table entry as unused. 

Parameters : 

indx - is entry to mark 

Procedure FlushBuffer(indx : integer ); 

Abstract : 

Write out the data for the buffer indx if changed and then mark 
the buffer as not changed. 

Parameters : 

indx - is buffer to flush 

Errors: FlushFail raised if can't Flush buffer due to a write error 

Procedure FlushAll; 

Abstract: 

Writes out the data for all the buffers and then mark them all as 
unchanged. 

Errors: FlushFail - is raised if cannot Flush a buffer due to a write 
error. Does not stop at first error, but goes and tries all 
buffers before raising the exception 
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Procedure ChgHdrdndx i integer); 

Abstract: 

Mark a buffer as having its header changed. 

Parameters : 

indx - is buffer to mark 

Procedure UseBuffer(indx,numtimes : integer); 

Abstract : 

Mark a buffer as used. 

Parameters : 

indx - is buffer to mark 

numTimes - the number to incrememt use count by 

Function BufferPointer(indx : integer) : ptrDiskBuffer; 

Abstract: 

return the bufferPtr for a buffer. 
Parameters : 

indx - is buffer 
Returns: Ptr to buffer 
Function HeaderPo inter (indx : integer) : ptrHeader; 
Abstract: 

return the header Ptr for a buffer. 
Parameters : 

indx - is buffer 
Returns: ptr to header 
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module Reader; 

Reader - Stream package input conversion routines. 

J. P. Strait ca. 1 Jan 81. 

Copyright (C) PERQ Systems Corporation, 1981. 

Abstract: 

Reader is the character input module of the Stream package. It is 
called by code generated by the Pascal compiler in response to 
Read or Readln. It is one level above Module Stream and uses 
Stream's lower- level input routines. 

Version Number V2.1 

exports 

imports Stream from Stream; 

procedure ReadBoolean( var F: FileType; var X: boolean ); 
procedure ReadChC var F: FileType; var X: char; Field: integer ); 
procedure ReadChArray( var F: FileType; var X: ChArray; Max, Len: integer ); 
procedure Readldentifier( var F: FileType; var X: integer; 

var IT: IdentTable; L: integer ); 
procedure Readlnteger( var F: FileType; var X: integer ); 
procedure ReadString( var F: FileType; var X: String; Max, Len: integer ); 
procedure ReadX( var F: FileType; var X: integer; B: integer ); 

procedure ReadBoolean( var F: FileType; var X: boolean ); 

Abstract : 

Reads a boolean in free format. 

Parameters : 

X - the boolean to be read. 

F - the file from which X is read. 

Errors: PastEof if an attempt is made to read F past the Eof. 
NotBoolean if a non-boolean is encountered in the file. 

procedure ReadCh( var F: FileType; var X: char; Field: integer ); 

Abstract : 

Reads a character in fixed or free format. 

Parameters : 

X - the character to be read. 

F - the file from which X is to be read. 

Field - the size of the field X is in." 
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Errors: PastEof if an attempt is made to read F past the Eof. 

procedure ReadChArray( var F: FileType; var X: ChArray; Max, 
Len: integer ); 

Abstract : 

Reads a packed character array in free or fixed format. If free 
format reading is selected, spaces are skipped and characters are 
read until another space is encountered. 

Parameters : 

X - the character array to be read. 
F - the file from which X is to be read. 
Max - the declared length of X. 

Len - the size of the field. Len <= selects free format 
reading. 

Errors: PastEof if an attempt is made to read F past the Eof. 

procedure Readldentifier( var F: FileType; var X: integer; 
var IT: Ident Table; L: integer ); 

Abstract : 

Reads an identifier and returns its position in a table. A table 
lookup is performed requiring only that the identifier typed 
uniquely matches the beginning of a single table entry. 

Parameters : 

X - set to the ordinal of the identifier read. 

F - the file from which X is read. 

IT - the table of identifiers indexed from to L. 

L - the largest identifier ordinal defined by the table. 

Errors : 

BadldTable if length of the identifier table is less than 1. 
PastEof if an attempt is made to read F past the Eof. 
Notldentifier if a non-identifier is encountered in the file. 
IdNotDefined if the identifier is not in the table. 
IdNotUnique if the identifier is not unique. 

procedure Readlnteger( var F: FileType; var X: integer ); 

Abstract : 

Reads a decimal integer in free format. 

Parameters : 

X - the integer to be read. 

F - the file from which X is to be read. 
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Errors : 

PastEof if an attempt is made to read F past the Eof. 
NotNumber if non-numeric input is encountered in the file. 
LargeNumber if the number is not in the range -32768.. 32767. 

procedure ReadString( var F: FileType; var X: String; Max, Len: integer ); 

Abstract: 

Reads a string in free or fixed format. If free format is 
selected, spaces are skipped and characters are read until another 
space is encountered. 

Parameters : 

X - the string to be read. 

F - the file from which X is to be read. 

Max - the declared maximum length of the string. 

Len - the size of the field. Len <= selects free format. 

Errors: PastEof if an attempt is made to read F past the Eof. 

procedure ReadX( var F: FileType; var X: integer; B: integer ); 

Abstract : 

Reads an integer in free format with base B. B may be any 
integer between 2 and 36, inclusive. 

Parameters : 

X - the integer to be read. 
F - the file from which X is to be read. 
Field - the size of the field X is in. 

B - the base of X. It may be any integer between 2 and 36, 
inclusive. 

Errors: 

PastEof if an attempt is made to read F past the Eof. 
NotNumber if non-numeric input is encountered in the file. 
LargeNumber if the number is not in the range -32768.. 32767. 
BadBase if the base is not in 2.. 36. 
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module RealFunctions; 

RealFunctions - Standard functions for reals. 

J. Strait 27 Nov 81. 

Copyright (C) PERQ Systems Corporation, 1981. 

Abstract : 

RealFunctions implements many of the standard functions whose 
domain and/or range is the set of real numbers. The 
implementation of these functions was guided by the book 

Software Manual for the Elementary functions, William J. Cody, Jr. 
and William Waite, (C) 1980 by Prentice-Hall. Inc. 

The domain (inputs) and range (outputs) of the functions are given 
in their abstract. The following notation is used. Parentheses () 
are used for open intervals (those that do not include the 
endpoints), and brackets [] are used for closed intervals (those 
that do include their endpoints). The closed interval 
[RealMLargest, RealPLargest] is used to mean all real numbers, and 
the closed interval [-32768, 327671 is used to mean all integer 
numbers . 

DISCLAIMER: 

Only the most cursory testing of these functions has been done. No 
guarantees are made as to the accuracy or correctness of the 
functions. Validation of the functions must be done, but at some 
later date. 

Design: AdX, IntXp, SetXp, and Reduce are implemented as Pascal 
functions. It is clear that replacing the calls with in-line code 
(perhaps through a macro expansion) would improve the efficiency. 

Many temporary variables are used. Elimination of unnecessary 
temporaries would also improve the efficiency. 

Many limit constants have been chosen conservatively, thus trading 
a small loss in range for a guarantee of correctness. The choice 
of these limits should be re-evaluated by someone with a better 
understanding of the issues. 

Some constants are expressed in decimal (thus losing the guarantee 
of precision). Others are expressed as Sign, Exponent, and 
Significand and are formed at execution time. Converting these two 
32-bit constants which are Recast into real numbers would improve 
the correctness and efficiency. 

More thought needs to be given to the values which are returned 
after resuming from an exception. The values that are returned 
now are the ones recommended by Cody and Waite. It seems that 
Indefinite values (NaNs in the IEEE terminology) might make more 
sense in some cases. 

Version Number VI. 5 
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exports 

const RealPInfinity = 
RealMInfinity = 
RealPIndefinite 
RealMIndefinite 
RealPLargest = 
RealMLargest = 
RealPSmallest = 
RealMSmallest = 



Recast(#17740000000.Real 
Recast(#37740000000,Real 
Recast (#00000000001 ,Real 
Recast ( #20000000001 , Real 
Recast(#17737777777,Real 
Recast ( #37737777777 , Real 
Recast ( #00040000000 , Real 
Recast(#20040000000,Real 



1.0 / 0.0 } 
-1.0 / 0.0 ) 

0.0 / 0.0 } 
-0.0 / 0.0 } 
largest positive } 
largest negative ) 
smallest positive } 
smallest negative } 



function Sqrt( X: Real ): Real; 

function Exp( X: Real ): Real; 

function Ln( X: Real ): Real; 

function LogiO( X; Real ): Real; 

function Power( X, Y: Real ): Real; 

function PowerK X; Real; Y: Integer ): Real; 

function Sin( X: Real ): Real; 

function Cos( X: Real ): Real; 

function Tan( X: Real ): Real; 

function CoTan( X: Real ): Real; 

function ArcSin( X: Real ): Real; 

function ArcCosC X: Real ): Real; 

function ArcTan( X: Real ): Real; 

function ArcTan2( Y, X: Real ): Real; 

function SinH( xrreal ) : real; 

function CosH( x:real ) : real; 

function TanH( x:real ) : real; 

exception SqrtNeg( X: Real ); 

Abstract : 



SqrtNeg is raised when Sqrt is passed a negative argument. You may 
resume from this exception, in which case Sqrt returns 
Sqrt(Abs(X)). 

Parameters : 

X - Argument of Sqrt. 

exception ExpLarge( X: Real ); 

Abstract : 

ExpLarge is raised when Exp is passed an argument which is too 
large. You may resume from this exception, in which case Exp 
returns RealPInfinity. 

Parameters : 

X - Argument of Exp. 
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exception ExpSmalK X: Real ); 
Abstract: 

ExpLarge is raised when Exp is passed an argument which is too 
small. You may resume from this exception, in which case Exp 
returns 0.0. 

Parameters : 

X - Argument of Exp. 

exception LogSmalK X: Real ); 

Abstract : 

LogSmall is raise when Ln or LoglO is passed an argument which is 
too small. You may resume from this exception in which case Ln or 
LoglO returns RealMInfinity if X is zero or the log of Abs(X) if X 
is non-zero. 

Parameters : 

X - Argument of Ln or LoglO. 

exception PowerZeroC X, Y: Real ); 

Abstract : 

PowerZero is raised when Power or Powerl is called with X = 0.0 
and Y = 0.0. You may resume from this exception in which case 
Power or Powerl returns RealPInfinity. 

Parameters : 

X - Argument of Power or Powerl. 
Y - Argument of Power or Powerl. 

exception PowerNeg( X, Y: Real ); 

Abstract : 

PowerNeg is raised when Power is called with X < 0.0 or with X = 
0.0 and Y < 0.0, or Powerl is called with X = 0.0 and Y < 0. You 
may resume from this exception in which case Power or Powerl 
returns Power(Abs(X),Y) in the case of X < 0.0 or returns 
RealPInfinity in the case of X = 0.0 and Y < 0.0. 



- 238 - 



POS operating System - Mcxlule RealFunctions January i5> 1984 

Parameters : 

X - Argument of Power or Powerl. 
Y - Argument of Power or Powerl. 

exception PowerBig( X, Y: Real ); 

Abstract : 



PowerBig is raised when Power or Powerl is called with X and Y for 
which X raised to the Y power is too large to be represented. You 
may resume from this exception in which case Power or Powerl 
returns RealPInfinity. 

Parameters : 

X - Argument of Power or Powerl. 
Y - Argument of Power or Powerl . 

exception PowerSmalK X, Y: Real ); 

Abstract : 



PowerSmall is raised when Power or Powerl is called with X and Y 
for which X raised to the Y is too close to zero to be 
represented. You may resume from this exception in which case 
Power or Powerl returns 0.0. 

Parameters : 

X - Argument of Power or Powerl. 
Y - Argument of Power or Powerl. 

exception SinLarge( X: Real ); 

Abstract : 



SinLarge is raised when Sin is called with an argument which is 
too large. You may resume from this exception in which case Sin 
returns 0.0. 

Parameters : 

X - Argument of Sin. 

exception CosLarge( X: Real ); 

Abstract : 



CosLarge is raised when Cos is called with an argument which is 
too large. You may resume from this exception in which case Cos 
returns 0.0. 
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Parameters: 

X - Argument of Cos. 
exception TanLarge( X: Real ); 
Abstract : 

CosLarge is raised when Tan or CoTan is called with an argument 
which is too large. You may resume from this exception in which 
case Tan or CoTan returns 0.0. 

Parameters ; 

X - Argument of Tan or CoTan. 

exception ArcSinLarge( X: Real ); 

Abstract : 

ArcSinLarge is raised when ArcSin is called with an argument which 
is too large. You may resume from this exception in which case 
ArcSin returns RealPInfinity. 

Parameters : 

X - Argument of ArcSin. 

exception ArcCosLarge( X: Real ); 

Abstract : 

ArcCosLarge is raised when ArcCos is called with an argument which 
is too large. You may resume from this exception in which case 
ArcCos returns RealPInfinity. 

Parameters : 

X - Argument of ArcCos. 

exception ArcTan2Zero( Y, X: Real ); 

Abstract : 

ArcTan2Zero is raised when ArcTan2 is called with both X and Y 
equal to zero. You may resume from this exception in which case 
ArcTan2 returns RealPInfinity. 
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Parameters : 

Y - Argument of ArcTan2. 
X - Argument of ArcTan2. 

exception SinHLarge( X: Real ); 

Abstract: 

SinHLarge is raised when the arqument to SinH would cause a result 
whose magnitude is too large to be represented on the Perq. Note 
that SinH is implemented (for now at least) is terms of the Exp 
function and that function is the bound on SinH domain. 

Parameters : 

X - Argument of SinH 

exception CosHLarge( X: Real ); 

Abstract: 

CosHLarge is raised when the arqument to CosH would cause a result 
whose magnitude is too large to be represented on the Perq. Note 
that CosH is implemented (for now at least) is terms of the Exp 
function and that function is the bound on CosH domain. 

Parameters : 

X - Argument of CosH 

function Sqrt( X: Real ): Real; 

Abstract : 

Compute the square-root of a number. 

Domain = [0.0, RealPLargestl . Range = [0.0, Sqrt(RealPLargest)] . 
Parameters : 

X - Input value. 
Returns: Square-root of X. 
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function Ln( X: Real ): Real; 
Abstract : 

Compute the natural log of a number. 

Domain = [0.0, RealPLargestl . 

Range = [RealMLargest, Ln(RealPLargest)] . 

Parameters : 

X - Input value. 

Returns: Natural log of X. 

function LoglO( X: Real ): Real; 

Abstract ; 

Compute the log to the base 10 of a number. 

Domain = [0.0, RealPLargestl. 

Range = [RealMLargest, LoglO(RealPLargest)] . 

Parameters : 

X - Input value. 

Returns: Log to the base 10 of X. 

Calls: Ln 

function Exp( X: Real ): Real; 

Abstract: 

Compute the exponential function. 

Domain = [-87.336, 88.7221. 
Range = (0.0, RealPLargestl. 

Parameters : 

X - Input value. 

Returns: e raised to the X power. 
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function Power( X, Y: Real ): Real; 

Abstract: 

Compute the result of an arbitrary number raised to an arbitrary 
power. 

DomainX = [0.0, RealPLargestl . 
DomainY = [RealMLargest, RealPLargestl . 
Range = [0.0, RealPLargestl. 

With the restrictions that 

1) if X is zero, Y must be greater than zero. 

2) X raised to the Y is a representable real number. 

Parameters : 

X - Input value. 

Y - Input value. 

Returns: X raised to the Y power, 
function PowerK X: Real; Y: Integer ): Real; 
Abstract: 

Compute the result of an arbitrary number raised to an arbitrary 
integer power. The difference between Power and Power I is that 
negative values of X may be passed to Power I. 

DomainX = [RealMLargest, RealPLargestl. DomainY = [-32768, 327671. 
Range = [RealMLargest, RealPLargestl. 

With the restrictions that 

1) if X is zero, Y must be non-zero. 

2) X raised to the Y is a representable real number. 

Parameters : 

X - Input value. 

Y - Input value. 

Returns: X raised to the Y power. 
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function Sin( X: Real ): Real; 
Abstract : 

Compute the sin of a number. 

Domain = 1-12867, 128671. 
Range = [-1.0, 1.01. 

Parameters : 

X - Input value. 

Returns: Sin of X. 

function Cos( X: Real ): Real; 

Abstract : 

Compute the cos in of a number. 

Domain = [-12867, 128671. 
Range = [-1.0, 1.01. 

Parameters: 

X - Input value. 

Returns: Cos of X. 

function Tan( X: Real ): Real; 

Abstract : 

Compute the tangent of a number. 

Domain = [-6433.0, 6433.01. 

Range = [RealMInfinity, RealPInf inityl . 

Parameters : 

X - Input value. 

Returns: Tangent of X. 
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function CoTan( X: Real ): Real; 
Abstract: 

Compute the cotangent of a number. 

Domain = [-6433.0, 6433.01. 

Range = [RealMInfinity, RealPInfinityl. 

Parameters : 

X - Input value. 

Returns: Cotangent of X. 

function ArcSin( X: Real ): Real; 

Abstract : 

Compute the arcs in of a number. 

Domain = [-1.0, 1.0). 
Range = [-Pi/2, Pi/2). 

Parameters : 

X - Input value. 

Returns: Arcs in of X. 

Design: It seems that the Domain and Range ought to be closed 

intervals, however this implementation apparently returns a number 
very close to zero when X is 1.0, rather than returning Pi/2 as it 
should. 

function ArcCos( X: Real ): Real; 

Abstract : 

Compute the arccosin of a number. 

Domain = (-1.0, 1.01. 
Range = (-Pi/2, Pi/21. 

Parameters : 

X - Input value. 
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Returns: Arccosin of X. 

Design: It seems that the Domain and Range ought to be closed 

intervals, however this implementation apparently returns a number 
very close to zero when X is -1.0, rather than returning -Pi/2 as 
it should. 

function ArcTan( X: Real ): Real; 

Abstract : 

Compute the arctangent of a number. 

Domain = [RealMLargest, RealPLargestl . 
Range = (-Pi/2, Pi/2). 

Parameters : 

X - Input value. 

Returns: Arctangent of X. 

Design: Seems fine except for very large numbers. 

function ArcTan2( Y. X: Real ): Real; 

Abstract: 

Compute the arctangent of the quotient of two numbers. One 
interpretation is that the parameters represent the cartesian 
coordinate (X,Y) and ArcTan2(Y,X) is the angle formed by (X,Y), 
(0,0). and (1,0). 

Doma i nY = [ Rea 1 MLarges t , Rea 1 PLargest 1 . 
DomainX = [RealMLargest, RealPLargestl. 
Range = [-Pi, Pil. 

Parameters : 

Y - Input value. 
X - Input value. 

Returns: Arctangent of Y / X. 

Design: Seems fine except for very large Y/X. 

function SinH( x:real ) : real; 

Abstract : 

Compute the Hyperbolic Sine of a number. 

Domain = [-87.33,87.331. 

Range = [RealMLargest, RealPLargestl. 
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Parameters : 

X - Input value. 
Returns: Hyperbolic Sine of X. 
function CosH( x:real ) : real; 
Abstract : 

Compute the Hyperbolic Cosine of a number. 

Domain = [-87.33,87.331. 
Range = [1.0, RealPLargestl . 

Parameters : 

X - Input value. 

Returns: Hyperbolic Cosine of X. 

function TanH( x:real ) : real; 

Abstract : 

Compute the Hyperbolic Tangent of a number. 

Domain = [-8.66433975625.8.66433976625]. 
Range = [-1.0, 1.01. 

Parameters : 

X - Input value. 

Returns: Hyperbolic Tangent of X. 
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module RS232Baud; 
Abstract: 

RS232Baud - set RS232 baud rate with optional input enable. 

J. P. Strait 21 Aug 80. 

Copyright (c) PERQ Systems Corporation 1980, 1981, 1982, 1983. 
Version Number VI. 2 
exports 

procedure SetBaud(Baud: String; Enable: Boolean); 
Exception BadBaudRate; 
Abstract : 

Raised if Baud is not a valid baud rate. 

procedure SetRS232Port(Baud: string; Device: Integer); 
Exception BadRSDevice; 
Abstract : 

Raised if Device is not an RS232 port. 
procedure SetBaud(Baud: String; Enable: Boolean); 
Abstract : 

Sets the baud rate to baud specified by string arg 

Arguments: 

Baud - string of new baud rate (e.g. "2400 **) 
Enable - is ignored 

SideEffects: Changes status of RS232 

Errors: Raises BadBaudRate if string is illegal 

procedure SetRS232Port(Baud: string; Device: Integer); 

Abstract : 

Sets the baud rate to baud specified by string arg 

Arguments: 

Baud - string of new baud rate (e.g. "2400**) 
Device - chooses RSA or RSB 
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SideEffects: Changes status of RS232 

Errors: Raises BadBaudRate if string is illegal 
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module RunRead; 

RunRead - Module to read run files. 

John P Strait 9 Apr 81. 

CopyRight (C) PERQ Systems Corporation, 1981. 

Abstract : 

RunRead exports procedures to read and write run files. 

Design: 

If and when the format of run files is changed, the constant 
RFileFormat in module Code must be changed. This is necessary so 
that the procedures to read run files will not crap out. 

Version Number VI. 2 

exfXDrts 

const RunReadVersion = '1.2'; 

imports Code from Code; 

procedure ReadRunFile( var RunFile: RunFileType; Seg: Integer; 

var Header: Runlnfo; 

var First Seg, FirstUserSeg, Last Seg: pSegNode; 
ImportsWanted: Boolean ); 

procedure ReadSegNaroes( var RunFile: RunFileType; Seg: Integer; 

FirstUserSeg: pSegNode ); 

procedure ReadRunFile( var RunFile: RunFileType; Seg: Integer; 

var Header: Runlnfo; var First Seg, FirstUserSeg, LastSeg: pSegNode; 
ImportsWanted: Boolean ); 

Abstract : 

ReadRunFile reads a run file and builds a structure that 
represents that run file. The run file is read up to, but not 
including, the names of the .Seg files. 

Parameters : 

RunFile - A file variable which has been Reset to the desired 

file. ReadRunFile does XnotX close the file. 
Seg - Segment number for dynamic allocation. 
Header - The Runlnfo record. 

FirstSeg - Set to point to the first segment in the run file. 
FirstUserSeg - Set to point to the first user segment in the run 

file. 
LastSeg - Set to point to the last segment in the run file. 
ImportsWanted - True iff Import entries are to be read from the 

run file. 
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procedure ReadSegNaniesC var RunFile: RunFileType; Seg: Integer; 
FirstUserSeg: pSegNode ); 

Abstract: 

ReadSegNames reads .Seg file names from a run file and adds them 
to a structure that represents that run file. 

Parameters : 

RunFile - A file variable which has been Reset to the desired 

file and already read with ReadRunFile. ReadSegNames does 

Xnot9f close the file. 
Seg - Segment number for dynamic allocation. 
FirstUserSeg - A pointer to the first user segment in the run 

file. 
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module RunWrite; 

RunWrite - Module to write run files. 

Jolin P Strait 9 Apr 81. 

CopyRight (C) PERQ Systems Corporation, 1981. 

Abstract: 

RunWrite exports procedures to write run files. 

Design: If and when the format of run files is changed, the 
constant RFileFormat in module Code must be changed. This is 
necessary so that the procedures to read run files will not crap 
out. 

Version Number VI. 2 

exports 

const RunWriteVersion = '1.2'; 

imports Code from Code; 

procedure WriteRunFile( var RunFile: RunFileType; Header: Runlnfo; 

FirstSeg, FirstUserSeg: pSegNode ); 

procedure WriteRunPileC var RunFile: RunFileType; Header: Runlnfo; 
FirstSeg, FirstUserSeg: pSegNode ); 

Abstract : 

ReadRunFile writes a run file from a structure that represents 
that run file. 

Parameters : 

RunFile - A file variable which has been Rewritten to the desired 

file. WriteRunFile does XnotX close the file. 
Header - The Runlnfo record. 

FirstSeg - A pointer to the first segment in the run file. 
FirstUserSeg - A pointer to the first user segment in the run 

file. 
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CDCxlule Screen; 

Written By: Miles A. Barel July 1, 1980 
PERQ Systems Corporation 
Pittsburgh, PA 15213 

Abstract : 

Provides the interface to the PERQ screen including rudimentary 
support for multiple windows 

exports 

Imports Raster from Raster; 

Version Number V4.4 

Const ScreenVersion = 'V4.3'; 

VarWin = false; (if true then can have an arbitrary number of 
windows and storage for them has to be 
allocated off a heap. If false then there 
are 17 windows max, and storage is in 
screens global data. 
NOTE: There are still bugs in VarWin true) 

Type 

FontPtr = *Font; 

Font = Packed Record { Contains character sets ) 
Height: integer; { Height of the KSet ) 
Base: integer; { distance from top of characters to base- 
line ) 
Index: Array 10.. #1771 of ( Index into character patterns } 
Packed Record case boolean of 
true: (Offset: 0..767; { position of character in 
patterns 
Line: 0..63; { Line of patterns containing char ) 
Width: integer); { Width of the character ) 
false:(Loc: integer; Widd: integer) 
end; 
Filler: array [0.. 11 of integer; 
Pat: Array [0..01 of integer; { patterns go here ) 

{ We turn off range checking to ) 
{ access patterns, hence allowing ) 
{ KSets of different sizes ) 
end; 
{$ifc VarWin then) 

WindowP = ^WindowType; 
(lendc) 

WindowType = Packed Record 
{$ifc VarWin then) 

winNumber: Integer; (this window number) 
(lendc) 

winBY, winT^T, winLX, winRX, ( Limits of window 

area ) 
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winHX, winKY, winMX, winMY» { Limits of useable 

area ) 
winCurX, winCurY, winFunc: integer; 
winKSet: FontPtr; 
linCrsChr: char; 
winHasTitle, winCursorOn, defined: boolean; 



{$ifc VarWin then) 
{ $endc } 



winNext: Window?; 
end; 



{$ifc VarWin then} 

Const MaxWIndx = 32767; 

{$elsec} 

Const MaxWIndx = 32; 

{ $endc } 

Type WinRange = 0. .MaxWIndx; 

LineStyle = (DrawLine,EraseLine,XorLine); 

LS = String[256]; 

Const PortraitWordWidth = 48; 
PortraitBitWidth = 768; 
PortraitBitHeight = 1024; 

Const LandscapeWordWidth = 80; 
LandscapeBitWidth = 1280; 
LandscapeBitHeight = 1024; 

TitStrLength = 255; {big so can fit lots of characters across a 

landscape screen. The actual number allowed now 
is in the variable SNumTitleChars} 

KSetSLen = 48; { Scan Line Length used by Fonts } 

Type STitStrType = StringETitStrLengthl ; 

Var SScreenW: Integer; {word width of screen; use when want Screen 

in RasterOp or Line) 
SScreenP: RasterPtr; {for use when want Screen in RasterOp or Line} 
SBitWidth: Integer; {bit width of current screen} 
SBitHeight: Integer; {bit height of current screen} 
SMaxBitHeight: Integer; { maximum possible bit height for this screen 

type; o SBitHeight if screen shrunk at 
start up } 
SIsLandScape: boolean; {true if landscape, else false} 
SNumTitleChars: Integer; {number of characters that will fit in a 

full width title line USING THE STANDARD 
FONT} 
XursorOn: boolean; 
SFunc: integer; { Raster-op function for SPutChr } 

SCurBitHeight: Integer; { current BitHeight. Will always be 

<= SBitHeight; will be < if current screen 
shrunk } 
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(life VarWin then) 

FirstWindp, 

CurWindp: WindowP; 
{felsec) 

CurWind: WinRange; 

WinTable: ArraylWinRange] of WindowType; 
{ Sendc } 



{ first window's pointer; better not be NIL ) 
{ current window's pointer ) 



Procedure Screenlnit; 
Procedure ScreenReset; 

window. } 

Procedure SPutChr(CH:char); 



set: } 



{ 



CALL THIS ONCE AT BOOT ) 

This procedure de-allocates storage for 

all windows and sets up the default 

put character CH out to current position } 
on the screen. Chars FF, CR, and LP ) 
have special meanings unless #200 bit 



FF - clear screen 
CR - move left to margine 
LF - move vertically down one 
BS - erase previous character 



} 



Procedure SSet Cursor (X,Y: integer); { Set Cursor Position to X,Y ) 
Procedure SReadCursor(var X,Y: integer);! Read Cursor Position ) 
Procedure XurOn; { Enable display of Cursor ) 

Procedure SCurOff ; { Disable display of Cursor ) 

Procedure SCurChrCC: char); { Set cursor character ) 

Procedure SChrFuncCF: integer); { Set raster-op function for 
SPutChr) 
Procedure SSetSize(Lines: integer; complemented, screenOff: Boolean); 

{ Set Screen Size; lines must be a 
multiple of 128; screenOff if true 
turns off display in part below 
lines in which case, complemented 
describes off part of screen } 
Procedure CreateWindow(WIndx: WinRange; 

OrgX, OrgY, Width, Height: integer; Title: STitStrType); 
Procedure ChangeWindowTwindx: WinRange); 
Procedure GetWindowParms(var WIndx: WinRange; 

var OrgX, OrgY, Width, Height: integer; var hasTitle: Boolean); 
Procedure ChangeTitle(Title: STitStrType); 
Procedure SetFont(NewFont: FontPtr); 
Function GetFont: FontPtr; 

Procedure SClearChar(c: Char; funct: Integer); {delete prev char} 

{ c BETTER NOT be CR or LF} 
Procedure Line(Style: LineStyle; XI, Yl, X2, Y2: integer; Origin: 

RasterPtr); 
Procedure SVarLineC Style: LineStyle; XI, Yl, X2, Y2, Width: integer; 

Origin: RasterPtr); 
Procedure SBackSpace(c: Char); (move back over last char of curLine} 

{ c BETTER NOT be CR or LF} 
Procedure RefreshWindow( WIndx: WinRange); {redraws window outline and title 

area. DOES NOT REDRAW TITLE} 
Procedure StartLine; 
Procedure ToggleCursor; 
Procedure NewLine; 
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Procedure SaveLineEncKx: Integer); 
Procedure SFullWindow; 

Exception WBadSize; {parameter to SSetSize bad) 

Abstract: 

Raised if the lines parameter to SSetSize is not a multiple of 128 
or is <=0. Also raised if a window is totally below area to 
release so will disappear then if window # or is the current 
window, then Raises WBadSize. 

Exception BadWNum; {indx is invalid) 

Abstract: 

Raised if a window number parameter is illegal (not defined or out 
of range. 

Exception WTooBig; 

Abstract : 

Raised if parameters for new window specify an area that would 
extend off screen. 

Exception CursOutSide; 

Abstract : 

Raised if try to set the cursor outside of the current window. 

Resume: Allowed. If resume, then cursor is NOT moved (same effect as 
if signal is caught but not resumed). 

Procedure StartLine; 

Abstract : 

Resets Curline and variables describing the current line start. 

4 

Procedure ToggleCursor; 
Abstract : 

Inverts Cursor picture. 
SideEffects: Changes the picture on the screen; 
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Procedure SSetCursor(x,y: integer); 

Abstract: 

Moves the cursor to the specified screen position. 

Parameters : 

X and y are Screen position where the next char will go. Note 
that y specified the BOTTOM of the character. 

SideEffects: Changes the cur char positions AND sets line to be empty 
(so BS won't work); 

Errors: Raises CursOutside if try to set the cursor outside the current 
window 

Procedure SReadCursor(var x,y: integer); 

Abstract : 

Returns the current screen coords for chars. 

Parameters : 

X and y are set to the Screen position where the next char will go 

Procedure SCurOn; 

Abstract: 

Turns the char cursor on. 

SideEffects: Changes SCursorOn global vble 

Procedure SCurOff ; 

Abstract : 

Turns the char cursor off. 

SideEffects: Changes SCursorOn global vble 

Procedure XurChr(C: char); 

Abstract : 

Set the character to be used as the cursor. 

SideEffects: Changes the cursor character 
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Procedure SChrFuncCF: integer); 

Abstract: 

Set the function to be used for drawing chars to the screen. 

SideEffects: Changes the char function 
Procedure SSetSizeCLines: integer; complemented, screenOff: Boolean); 

Abstract : 

Change the size of the screen so rest of memory can be used for 
other things (if smaller) 

Parameters : 

Lines is the number of lines in the displayed part of the screen. 
It must be a multiple of 128 and > 0. Complemented describes the 
off part of the screen and screenOff determines whether it is 
displayed (false) or not; if displayed then complemented 
determines whether it is erased white or black. 

Errors: if lines a bad value then Raises WBadSize. If a window is 

totally below area to release and will disappear then if window # 
or is the current window, then Raises WBadSize. 

SideEffects: Changes the values describing windows. If a window is 
totally below area to release and will disappear then if not 
window # or is the current window, then makes the window 
undefined. 

Procedure NewLine; 

Abstract: 

Moves the cursor to the next line scrolling if necessary; DOES NOT 
do a CR 

SideEffects: Changes the cursor position and may scroll 

Procedure SaveLineEnd(x: Integer); 

Abstract: 

Saves X as the end of a line 
Parameters : 

X is the xPos of the end of a line 

SideEffects: puts x at the end of LineEnds table; increments 
lastLineEnd; if table is full then scrolls table 
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Procedure SBackSpace(c: Char); 
Abstract : 

Move the cursor back over c; c BETTER NOT be CR or LF 
Parameters : 

c is the character to backspace over. 

SideEffects: Moves the cursor back the width of char c; (DOES NOT ERASE 
CHAR) 

Procedure SClearChar(c: char; funct: Integer); 

Abstract : 

Deletes the c from screen; c BETIER NOT be CR or LF 

Parameters : 

c is char to be erased; funct is RasterOp function to use in 
deleting char. It should be RXor if chars are black on white and 
RXNor if chars are white on black. 

SideEffects: erases the last char of line; 

Procedure SPutChr(CH: Char); 

Abstract : 

Write a char into the current window 

Parameters : 

Ch is char to write. If #200 bit is not set, checks to see if 
char is one of Bell, BS, FF, LF, CR and does something special. 

SideEffects: Writes char to screen, moves cursor; may do a NewLine (and 
scroll) if at end of Line 

Procedure ChangeTitle(Title: STitStrType); 

Abstract : 

Changes the title of the current window (and displays new one). 

Parameters : 

Title is new string. Characters in it are quoted so special 
characters will be displayed. 
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SideEffects: Changes title on screen 

Procedure CreateWindowdlndx: WinRange; OrgX,OrgY, Width, Height: integer; 
Title:STitStrType); 

Abstract: 

Creates new window for Windx (or overwrites old values for that 
window) and makes it the current window. Writes title (IN CURRENT 
FONT) if title o "; 

Parameters : 

WIndx is index to use for the window created; OrgX and OrgY are 
the upper left corner of the outside of the new window (chars will 
be at least 5 bits in from that). Width and Height are total 
outside values for window (NOT the width and height of the 
character area). Title is title for window. If not " then 
hairlines and a black area are put around window. 

SideEffects: Writes current values into current window; creates a new 
window and erases its area on screen 

Errors: Raises BadWNum if WIndx invalid Raises WTooBig if window would 
extend off the screen 

Procedure SFu 11 Window; 

Abstract : 

Changes the parameters of the current window to be the full screen 

SideEffects: Changes the size of the current window. Does NOT refresh 
or change the title line or erase anything or move the cursor 

Procedure RefreshWindow( WIndx: WinRange); 

Abstract : 

Redraws window outline and title area (but not title text) 

Parameters : 

Window to refresh (better be already created) 

Errors: Raises BadWNum if WIndx undefined 
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Procedure GetWindowPanns(var WIndx: WinRange; var OrgX, OrgY, Width, Height: 
integer; var hasTitle: Boolean); 

Abstract: 

Returns parameters for current window 
Parameters : 

All set to current window's values 
Procedure ChangeWindow( WIndx: WinRange); 
Abstract : 

Writes out current window's parameters and changes to new one 
Parameters : 

WindX is new window's number 
Errors: Raises BadWNum if WIndx undefined 
Procedure SetFont(NewFont: FontPtr); 
Abstract: 

Changes font to be NewFont 
Parameters : 

NewFont is font to use 

SideEffects: Changes font in current window so all further writes 
(including titles) will be in this font 

Function GetFont: FontPtr; 

Abstract : 

Returns current font 

Returns: font currently in use 
Procedure ScreenReset; 

Abstract : 

Erases screen; Removes all window; sets Window to have full 
screen boundary and a blank title 

SideEffects: Erases or sets all parameters; font set to system font 
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Procedure Screenlnit; 

Abstract: 

Sets FirstWindP to NIL and sets up default window; NOTE: CALL IBIS 
PROCEDURE ONCE AT SYSTEM INITIALIZE 

Calls: ScreenReset; 

Procedure Line(Style: LineStyle; XI, Yl, X2, Y2: integer; Origin: 
RasterPtr); 

Abstract : 

Draws a line. 

Parameters : 

Style - function for the line; XI, X2, Yl, Y2 - end points of 
line. 

Origin - pointer to the memory to draw lines in. Use SScreenP for 
Origin to draw lines on the screen. 

Procedure SVarLineC Style: LineStyle; XI, Yl, X2, Y2, Width: integer; Origin: 
RasterPtr); 

Abstract : 

Draws a line. Same as Line except it takes the buffer width as a 
parameter. This is only useful when drawing lines in off-screen 
buffers . 

Parameters : 

Style - function for the line; XI, X2, Yl, Y2 - end points of 

line. 
Width - the word width of the "origin** buffer. 
Origin - pointer to the memory to draw lines in. Use SScreenP for 
Origin to draw lines on the screen. 
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module Scrounge; 

Abstract: 

This module contains the procedure Scrounge which allows a small 
amount of debugging. Since there are no symbol tables or micro- 
code support for brealcpoints, you can look at the staclc trace and 
examine variables by offsets. The types of the variables have to 
be specified by the user. 

Written by: Brad A. Myers l-May-1981 

Copyright (C) 1981,1982 PERQ Systems Corporation. 

Version Number V0.27 

{////////////////////////} EXPORTS {\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\) 

Procedure Scrounge(ES, ER, PStart, PEnd, ExcSeg, RaiseAP: Integer); 

Procedure Scrounge(ES, ER, PStart, PEnd, ExcSeg, RaiseAP: Integer); 

Abstract: 

Scrounge is called when uncaught signals are noticed or when the 
user typ)es ^SHIFT-D. It allows looking around at local and global 
vbles and the stack trace. If "^SHIFT-D then can continue with 
program, otherwise aborts when exit 

Parameters : 

ES - segment number of exception 

ER - routine number of exception 

PStart - offset of start of parameters to exception 

PEnd - offset of end of parameters to exception 

ExcSeg - the segment number of the exceptions module if (ES = 

ExcSeg) and (ER = ErrDump) then is "SHIFT-D For now, can't 

tell -^SHIFT-C 
RaiseAP - the offset for AP for Raise itself (caller is person who 

did the raise) 
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module Sid; 

Sid - Screen Image Dump, 

J Strait 15 Mar 83. 

Copyright (C) PERQ Systems Corporation, 1983. 

Abstract: 

Several hardcopy options available for the PERQ computer are 
capable of printing an image of the display screen. A module to 
print an image of the screen is included with each of these 
hardcopy options. The interfaces to these modules are identical 
in order that programs may be written without knowing which 
hardcopy option is available. This version of Sid is provided for 
systems with no hardcopy option. Programs which provide hardcopy 
ability may import Sid and later be linked with the version of Sid 
which is specific to a hardcopy device. 

Every incarnation of Sid should implement all routines included 
here. This module may be used as a skeleton for other versions. 

The comments in every incarnation should specify the name of the 
device served and a description of the reasons for raising 
failure: 

Device name: Null. Errors raised: SidNone is always 
raised. 

Version Number Vl.l 

exports 

type SidWhy = (SidNone, { the device is not connected } 

SidBroken, { the device is physically broken ) 
SidHelp, { the device needs human help, e.g. paper 

out ) 
SidBusy); { the device is busy: try later } 

procedure Sid( Destination: String ); 
function SidExplain( Why: SidWhy ): String; 
function SidDevice: String; 

exception SidFaiK Why: SidWhy ); 

Abstract : 

SidFail is raised when the screen image cannot be printed. 
Resuming from this exception is allowed: resuming from fatal 
errors (SidNone, SidBroken) exits from Sid and resuming from 
non-fatal errors (SidHelp, SidBusy) retries. 
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Parameters : 



Why - The reason that the screen image could not be printed. This 
value may be converted to a character string with the SidExplain 
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procedure Sid( Destination: String ); 

Abstract: 

The Sid procedure prints an image of the PERQ display screen to a 
certain hardcopy device. 

Parameters : 

Destination - A string describing the destination of the hardcopy. 
For the EtherNet version of Sid this is the string name of the 
EtherNet Sid server. If non-null, Destination is used as the name 
of the server machine, and if null, Sid looks in the user profile 
for an entry of the form #Sid <ServerName> to determine the name 
of the server machine. If the parameter is null and there Is no 
entry in the user profile, any available server is used. 
Destination could be defined differently for other versions of 
Sid. For example, it could be the name of a file to which a screen 
image is written. 

Errors: SidFail is raised if the screen image cannot be printed. This 
incarnation of Sid always raises SidFail(SidNone). 

function SidExplain( Why: SidWhy ): String; 

Abstract : 

SidExplain converts a SidWhy value into a character string. 

Parameters : 

Why - The value to explain. 

Returns: The explanation of Why. 

function SidDevice: String; 

Abstract : 

SidDevice returns the string name of the hardcopy device used by 
this version of Sid. 
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Returns: The name of the hardcopy device. 
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module Stream; 

Stream - Perq Pascal stream package. 
John Strait ca. Jan 80. 

Copyright (C) PERQ Systems Corporation, 1980, 1981, 1982, 1983 

Abstract : 



This module implements the low-level Pascal I/O. It is not 
intended for use directly by user programs, but rather the 
compiler generates calls to these routines when a Reset, Rewrite, 
Get, or Put is encountered. Higher-level character I/O functions 
(Read and Write) are implemented by the two modules Reader and 
Writer. 

In this module, the term "file buffer variable" refers to F" for a 
file variable F. 

Version Number VI. 25 

exports 

imports FileDefs from FileDefs; 

const StreamVersion = '1.23'; 



IdentLength = 8; 



{ significant characters in an identifier } 



type pStreamBuffer = ^StreamBuffer; 

StreamBuffer = record case integer of 
0: (W: array[0..255] of integer); 

1: (Bl: packed arrayIO..O] of 0..1); 

2: (B2: packed array[0..0] of 0..3); 

3: (B3: packed array[0..0] of 0..7); 

4: (B4: packed array[0..0] of 0..16) 

5: (B5: packed array[0..0] of 0..31) 

6; (B6: packed array[0..0] of 0..63) 

7: (B7; packed array[0..0] of 0..127); 

8: (B8: packed array[0..01 of 0..255); 

9: (C: packed array[0..255] of char); 
end; 



element size: } 

{ 1 or more words, or 

> 8 bits ) 
I 1 bit } 
{ 2 bits 



bits 
bits 
bits 
bits 
bits 



{ 8 bits 

{ for character structured 



ControlChar = 0. .#37; 



{ ordinal of an ASCII control 
character } 



FileKind = (BlockStructured, CharacterStructured); 



FileType = { file of Thing } 
packed record 

Flag: packed record case integer of 
0: (CharReady : boolean; 
FEoln : boolean; 
FEof : boolean; 



{ character is in file window 
{ end of line flag } 
{ end of file } 
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FNotReset : boolean; 

FNotOpen : boolean; 
FNotRewrite: boolean; 

FExternal : boolean; 



2: 



FBusy 

FKind 
(skipl 

ReadError 
(skip2 



; boolean; 
: FileKind); 
0..3; 
0..7); 
0..15; 



( false if a Reset has been 
performed on this file > 

{ false if file is open ) 

{ set false if a Rewrite has 
been performed on this file ) 

( not used - will be 
permanent/temp file flag ) 

{ 10 is in progress } 



end; 



WriteError: 0..3) 



EolCh, EofCh, EraseCh, NoiseCh: ControlChar; (self explanatory) 



OmitCh 

FileNum 

Index 



Length 



BlockNumber 
Buffer 



set of ControlChar; 



integer; 
integer; 



integer; 



integer; 



LengthlnBlocks: integer; 
LastBlockLength: integer; 
SizelnWords : integer; 



SizelnBits 



{ POS file number ) 

{ current word in buffer for un-packed 
files, current element for packed 
files ) 
{ length of buffer in words for un- 
packed files, in elements for packed 
files ) 
{ next logical block number } 
pStreamBuffer;{ I/O buffer ) 

{ file length in blocks ) 
( last block length in bits ) 
{ element size in words, means 
packed file ) 
0..16; { element size in bits for packed 
files ) 

{ elements per word for packed files } 
{The File window} 



ElsPerWord : 0..16; 

Element: { Thing } record case integer of 

1 * ( C ' char ) * 

2: (W: array[0..01 of integer) 

end 
end; 

ChArray = packed array[l..il of char; (For read/write character array) 

Identifier = string[IdentLength] ; 
IdentTable = array[0..n of Identifier; 

var StreamSegment: integer; { Segment buffer for I/O buffers ) 
KeyBuffer: packed array [0. .2551 of char; 
KeyNext, KeyLength: integer; 

procedure Streamlnit( var F: FileType; WordSize, BitSize: integer; 

CharFile: boolean ); 
procedure StreamOpenC var F: FileType; var Name: PathName; 

WordSize, BitSize: integer; CharFile: boolean; 

OpenWrite: boolean ); 
procedure StreamCloseC var F: FileType ); 
procedure GetB( var F: Filetype )• 
procedure PutB( var F: Filetype ) 
procedure GetC( var F: Filetype ) 
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procedure PutC( var F: FileType )j 

procedure PReadln( var F: Filetype ); 

procedure PWriteln( var F: Filetype ); 

procedure InitStream; 

function StreamName( var F: FileType ): PathName; 

function FullLn( var F: Text ): Boolean; 

procedure StreamKeyBoardReset( var F: Text ); 

exception ResetError( FileName: PathName ); 

Abstract : 



Raised when unable to reset a file— usually file not found but 
also could be ill-formatted name or bad device name. 



Parameters : 

FileName - name of the file or device, 
exception RewriteError( FileName: PathName ); 
Abstract : 

Raised when unable to rewrite a file— usually file unknown device 
or partition but also could be ill-formatted name or bad device 
name. 

Parameters : 

FileName - name of the file or device. 

exception NotTextFile( FileName: PathName ); 

Abstract : 

Raised when an attempt is made to open a non-text file to a 
character-structured device. 

Parameters : 

FileName - name of the device. 

exception NotOpen; 

Abstract : 

Raised when an attempt is made to use a file which is not open. 
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exception NotReset( FileName: PathName ); 
Abstract: 

Raised when an attempt is made to read a file which is open but 
has not been reset. 

Parameters : 

FileName - name of the file or device. 

exception NotRewrite( FileName: PathName ); 

Abstract : 

Raised when an attempt is made to write a file which is open but 
has not been rewritten. 

Parameters : 

FileName - name of the file or device. 

exception PastEof( FileName: PathName ); 

Abstract : 

Raised when an attempt is made to read past the end of the file. 

Parameters : 

FileName - name of the file or device. 

exception UnitIOError( FileName: PathName ); 

Abstract : 

Raised when lOCRead or lOCWrite returns an error status. 
Parameters : 

FileName - name of the device, 
exception TimeOutError( FileName: PathName ); 
Abstract : 

Raised when a device times out. 
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Parameters : 

FileNaroe - name of the device, 
exception UndfDevice; 
Abstract : 

Raised when an attempt is made to reference a file which is open 
to a character-structured device, but the device number is bad. In 
the current system (lacking automatic initialization of file 
variables), this may be caused by referencing a file which has 
never been opened. 

exception NotIdentifier( FileName: PathName ); 

Abstract : 

Raised when an identifier is expected on a file, but something 
else is encountered. 

Parameters : 

FileName - name of the file or device. 

exception NotBoolean( FileName: PathName ); 

Abstract : 

Raised when a boolean is expected on a file, but something else is 
encountered. 

Parameters : 

FileName - name of the file or device, 
exception BadIdTable( FileName: PathName ); 
Abstract : 

Raised by Readldentifier when the identifier table is bad. 
Parameters : 

FileName - name of the file or device. 
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exception IdNotUniqueC FileName: PathName; Id: Identifier ); 
Abstract: 

Raised when non-unique identifier is read. 

Parameters : 

FileName - name of the file or device. Id - the identifier which 
was read. 

exception IdNotDefined( FileName: PathName; Id: Identifier ); 

Abstract: 

Raised when an undefined identifier is read. 

Parameters : 

FileName - name of the file or device. 

Id - the identifier which was read. 

exception NotNumber( FileName: PathName ); 

Abstract: 

Raised when a number is expected on a file, but something else is 
encountered. 

Parameters : 

FileName - name of the file or device. 

exception LargeNumber( FileName: PathName ); 

Abstract: 

Raised when a number is read from a file, but it is too large. 

Parameters : 

FileName - name of the file or device. 

exception SmallReaK FileName: PathName ); 

Abstract: 

Raised when a real number is read from a file, but it is too 
small. 
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Parameters : 

FileName - name of the file or device. 

exception BadBase( FileName: PathName; Base: Integer ); 

Abstract : 

Raised when an attempt is made to read a number with a numeric 
base that is not in the range 2.. 36. 

Parameters : 

FileName - name of the file or device. 

Base - numeric base (which is not in the range 2.. 36). 

exception LargeReaK FileName: PathName ); 

Abstract: 

Raised when a real number is read from a file, but it is too 
large. 

Parameters : 

FileName - name of the file or device. 

exception RealWriteErrorC FileName: PathName ); 

Abstract : 

Raised when an attempt is made to write a real number which is 
invalid. 

Parameters : 

FileName - name of the file or device. 

exception NotReaK FileName: PathName ); 

Abstract : 

Raised when a real number is expected on a file, but something 
else is encountered. 

Parameters : 

FileName - name of the file or device. 

Procedure Start Trans cript(fileName: PathName; append: boolean); 
Procedure St opTrans cr i pt ; 
Procedure TransChar(c: Char); 
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Exception TransError(kind: String); 
Abstract : 

Raised when startTranscript called but a transcript is already 
open or if StopTranscript is called and no transcript is active. 
Also, if StartTranscript and file cannot be created. 

Parameters : 

Kind - a string describing the error. 

procedure Streamlnit( var F: FileType; WordSize, BitSize: integer; CharFile: 
boolean ); 

Abstract : 

Initializes, but does not open, the file variable F. 
Automatically called upon entry to the block in which the file is 
declared. (To be written when the compiler generates calls to 
it.) 

Parameters : 

F - the file variable to be initialized. 

WordSize and BitSize are the size of an element of the file. 

CharFile - determines whether or not the file is of characters. 

procedure StreamClose( var F: FileType ); 

Abstract : 

Closes the file variable F. 

Parameters : 

F - the file variable to be closed. 

procedure StreamOpen( var F: FileType; var Name: PathName; WordSize, 
BitSize: integer; CharFile: boolean; OpenWrite: boolean ); 

Abstract : 

Opens the file variable F. This procedure corresponds to both 
Reset and Rewrite. 

Parameters : 

F - the file variable to be opened. 

Name - the file name. 

WordSize - number of words in an element of the file (0 indicates 

a packed file). 
BitSize - number of bits in an element of the file (for packed 

files). 
CharFile - true if the file is a character file. 
OpenWrite - true if the file is to be opened for writing 

(otherwise it is opened for reading). 
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Errors : 

ResetError if unable to reset the file. 
RewriteError if unable to rewrite the file. 
NotATextFile if an attempt is made to open a non-text file to a 
character structured device. 

procedure GetB( var F: Filetyf)e ); 

Abstract ; 

Advances to the next element of a block-structured file and gets 
it into the file buffer variable. 

Parameters : 

F - the file to be advanced. 

Errors : 

NotOpen if F is not open. 

NotReset if F has not been reset. 

PastEof if an attempt is made to read F past Eof. 

procedure GetC( var F: Filetype ); 

Abstract : 

Advances to the next element of a character-structured file and 
gets it into the file buffer variable. 

Parameters : 

F - the file to be advanced. 

Errors : 

NotOpen - if F is not open. 

NotReset - if F has not been reset. 

PastEof - if an attempt is made to read F past Eof. 

TimeOutError - if RS: or RSX: times out. 

UnitlOError - if lOCRead doesn't return lOEIOC or lOEIOB. 

UndfDevice - if F is open, but the device number is bad. 

procedure PutB( var F; Filetype ); 

Abstract : 

Writes the value of the file buffer variable to the 
bloclc-structured file and advances the file. 

Parameters : 

F - the file to be advanced. 
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Errors : 

NotOpen - if F is not open. 

NotRewrite- if F has not been rewritten. 

procedure PutC( var F: FileType ); 

Abstract : 

Writes the value of the file buffer variable to the character- 
structured file and advances the file. 

Parameters : 

F - the file to be advanced. 

Errors : 

NotOpen - if F is not open. 

NotRewrite - if F has not been rewritten. 

UnitlOError- if lOCWrite doesn't return lOEIX or lOEIOB. 

TimeOutError- if RS: or RSX: times out. 

UndfDevice - if F is open, but the device number is bad. 

procedure PReadln( var F: Filetype ); 

Abstract : 

Advances to the first character following an end-of-line. 

Parameters : 

F - the file to be advanced. 

procedure PWritelnC var F: Filetype ); 

Abstract: 

Writes an end-of-line. 

Parameters : 

F - the file to which an end-of-line is written. 

procedure StreamKeyBoardReset( var F: Text ); 

Abstract : 

Clears the keyboard input buffer and the file variable F so that 
all input typed up to this point will be ignored. 

Parameters : 

F - file to be cleared. 
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procedure InitStream; 

Abstract: 

Initializes the stream package. Called by System, 
function FullLn( var F: Text ): Boolean; 

Abstract : 

Determines if there is a full line in the keyboard input buffer. 
This is the case if a carriage-return has been typed. This 
function is provided in order that a program may continue to do 
other things while waiting for keyboard input. If the file is not 
open to the console, FullLn is always true. 

Parameters : 

F - file to be checked. 

Returns: True if a full line has been typed. 

Errors : 

NotOpen - if F is not open. 
NotReset - if F has not been reset. 

function StreamNameC var F: FileType ): PathName; 

Abstract : 

Returns the file name associated with the file variable F. For 
block-structured files, the full path name including device and 
partition is returned. For character-structured files, the device 
name is returned. 

Parameters : 

F - file variable whose name is to be returned. 

Procedure StartTranscript(fileName: PathName; append: boolean); 

Abstract : 

Starts a transcript to the specified file. The transcript will 
contain all characters written to the screen. A user-typed 
backspace character will be echoed to the file as a backslash "V. 
All other characters will be copied directly. Do not leave the 
transcript on while running screen-based programs like PATCH or 
the EDITOR since they will input lots of garbage into the 
transcript. The transcript cannot be read until the 
StopTranscript routine is called. Note that some programs, 
notably TifPEFILE, will not output anything to the transcript since 
they RasterOp to the screen directly. To get a file into the 
transcript, use COPY file " CONSOLE: 

3f35XWARNING39«Be It is VERY dangerous to have transcripting on while 
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running the Scavenger or any similar program. No checking is done 
to insure that this is not done. Caveat Emptor. *XXWARNINGX9H» 
Also, it is dangerous to run Typefile while transcript ing is on. 
The data typed out will be wrong (since TypeFile uses ReadDisk) 
and the the PERQ may crash. X^WARNINGXXXX 

Parameters ; 

fileName - the name of the file that the transcript is supposed to 
go in. If the name is empty or the file cannot be opened 
then the TransError exception is raised. 

append - if false, the file is started from scratch. That is, it 
will contain only the text from this session. If append is 
true, then the new text will be put at the end of the file if 
it already exists. If the file does not exist, append will 
be identical to not append. 

Errors : 

TransError - raised if this procedure is called and a transcript 
is already in effect or if the filename passed is invalid. 

Procedure TransCharCc: Char); 

Abstract : 

Enters a character into the transcript. 

Parameters : 

c - the character to put into the transcript. 

Errors : 

TransError - raised if transcript is not open. 

Procedure StopTranscript; 

Abstract : 

Closes the transcript file. You must call this before accessing 
the transcript. If not, the file will be incomplete and not 
closed. 

Errors ; 

TransError - raised if no transcript is open. 
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Program System; 

Perq Software Group. 

Copyright (C) PERQ Systems Corporation. 1980, 1981, 1983. 

Abstract: 

Initialize POS and go into loop alternately running Shell and user 
program 
Version Number V2.17 

{3e555eX355e5^3e5fK-35X55X555e363eX) Exports { 3«BeX3eX3f3e55$e5BBB«555S3«» } 

Const Ma inversion = 'G'; 

DebugSystemlnit = False; 
FirstDDS = 199; 
ShellConst = 'Shell.'; 
LogConst = 'Login. '; 
PFileConst = 'Default. Profile'; 



SysTiming = True; 



{ Gather System timing statistics. If this 
constant is changed, 10, Loader, Memory, 
Movemem, System, and Shell should be 
re-compiled, and the System should be 
re-linked. } 



Type Sys9s = StringllOl; 



Var UsrCmdLine: String[255); 

UseCrod: Boolean; 
UsrCmdLine} 

InCmdFile: Boolean; 

LastFileName, 

RFileNaroe, 

ShellName: String; 

CurUserlD, 
CurGroupID: 0..256; 
CurUserName, 
CurPFile: String; 
UserMode: Boolean; 

CtrlCPending: Boolean; 

NextSSize: Integer; 
NextSComplemented: Boolean; 
NextSOff: Boolean; 
Def CursFunct : Integer; 
DefScrComp: Boolean; 
DefScrOff: Boolean; 

ShellCtrl: pointer; 
TimeFID: integer; 
CmdSegment: Integer; 

InPmd: Boolean; 



{Command line entered by user} 
{Set True to tell shell to execute 

{True if shell commands from file} 
{Name of file to use if none given} 
{Name of next program to run} 
{Name of Shell} 

{Index of user in System. Users} 
{Group id of current user) 
{Login name of current user} 
{Name of current profile file} 
{True while executing user program} 

{True if one control -C typed} 

{Screen size for next program} 
{Whether to complement bottom for next pgm} 
{Whether bottom should display data bits) 
{What to set curs func to after each prog} 
{Default value for NextSComplemented} 
{Default value for NextSOff} 

{Pointer to information record for Shell} 

(File ID of file holding current time} 

{ SegmentNumber of seg holding command files} 

{True if in Scrounge (PostMortemDump)} 
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SysDisk: Integer; {Number of the disk booted from) 
SysBootChar: Integer; {OrdCchar held down to boot)} 

StrVersion: string; {System version number as a string) 
SystemVersion: Integer; {Integer giving system version number) 
Systemlnitialized: Boolean; {True after system initialized) 
DDS; Integer; {Keeps current diagnostic display value) 

ShouldReEnableSwapping: Boolean; {True if swapping must be reenabled) 
SavedSwapId: Integer; {Save id of where to swap to) 

{$ifc SysTiming then) 
LoadTime, OldLoadTime: long; 
ExecuteTime, OldExecuteTime: long; 
SwapTime, OldSwapTime: long; 
MoveTiroe, OldMoveTime: long; 
lOTime, OldlOTime: long; 
PrintStati sties: Boolean; 
{ $endc ) 

UserPtr: pointer; {A pointer variable for use between user 

programs. (Use IncRefCount to keep 
segment ) ) 

Userlnt: integer; {May be a segment number for UserPtr) 

Demoint: Integer; {reserved for Demo system) 

isFloppy; Boolean; {true if booted from floppy, else false) 
pointAUowed: Boolean; {true if should use pointing device) 

DefRea 1 Re 1 Tab let: boolean; {true if KrizTablet/BitPad in true relative 

mode ) 
DefTab let Type: integer; {assigned ord(KrizTablet) by Login etc ) 

CurRFileName: String; {the current run file; used by the symbol lie 

debugger ) 

{3655* WARNING?! IF YOU CHANGE THE EXPORTED PROCEDURES AND EXCEPTIONS, MAKE 
{5^ SURE THE NUMBERS FOR THE FOLLOWING EXCEPTIONS ARE UPDATED 
{XXX AND RECOMPILE SCROUNGE IF CHANGED ??!!? aexxxx) 

{XXX WARNING?? DO NOT CHANGE THE ORDER OF THE X EXCEPTIONS ????? XXXXX) 

Procedure Command; 

Procedure SetDDS( Display: Integer ); 

Procedure SysVers( n: integer; var S: string ); 

Const ErrCtlC = 4; {XXXXXX) 
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Exception CtlC; 
Abstract: 

CtlC is raised by the KeyBoard interrupt routine when a control -c 
is typed. If you handle this exception you should clear 
CtrlCPending in your handler. If you are catching control-c's to 
try to prevent aborts, you should enable CtlCAbort also, since the 
Stream package will raise it when the control -c is read. 

Const ErrCtlCAbort = 5; {*9e5«Bex} 
Exception CtlCAbort; 
Abstract : 

CtlCAbort is raised by the KeyBoard interrupt routine when the 
second of two adjacent control-c's is typed. It is also raised by 
the Stream package when a control -c is read. If you handle this 
exception you should clear CtrlCPending in your handler. 

When this is raised by the KeyBoard interrupt routine, the 
KeyBoard type-ahead buffer is cleared. If you want to prevent 
this, you must catch CtlC also. 

If your program uses a Text file and you want to clear the line 
editing buffer for that file, you should call the Stream routine 
StreamKeyBoardReset(F) (assuming F is the name of the file). If F 
is a Text file which is attached to the console, this will get rid 
of the character F* points to and clear Stream's line editing 
buffer. 

Const ErrCtlShftC = 6; { ICXXXXX } 
Exception CtlShftC; 
Abstract : 

CtlShftC is raised by the KeyBoard interrupt routine when a 
control- shift-c is typed. If you handle this exception you 
should clear CtrlCPending in your handler. 

When this is raised by the KeyBoard interrupt routine, the 
KeyBoard type-ahead buffer is cleared. You cannot prevent this. 

If your program uses a Text file and you want to clear the line 
editing buffer for that file, you should call the Stream routine 
StreamKeyBoardReset(F) (assuming F is the name of the file). If F 
is a Text file which is attached to the console, this will get rid 
of the character F* points to and clear Stream's line editing 
buffer. 
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Const ErrExitProgram = 7; ( XXXXXX ) 
Exception ExitProgram; 
Abstract : 

ExitProgram is raised to abort (or exit) a program. The default 
handler for CtlCAbort and Scrounge raise this exception. 

WARNING: No one but System and Loader should Handle this 
exception. Anyone may raise it to exit a program. 

Const ErrHelpKey = 8; {9e5a5Ha) 

Exception HelpKey(var retStr: Sys9s); 

Abstract : 

HelpKey is raised when the HELP key is hit. 

Parameters : 

retStr - the set of characters to put into the input stream. This 
should be set by the handler if it continues from the 
exception. Likely values are "/Help<CR>- and chr(7) (the current 
value returned). The key board interupt routine sets retStr to 
before raising this exception so if not set, and the handler 
resumes, nothing will be put into the input stream. 

Resume: Allowed. Should set retStr first. 
Const ErrHardCopy = 9; {X5JX«*X} 

Exception HardCopy; 

Abstract : 

HardCopy is raised when Control -Sh if t-P is typed. A default 
handler is provided in System which calls Sid to do a Screen Image 
Dump. The HardCopy exception may be raised by a program which 
wishes to print a screen image dump. 

Resume: Encouraged. 

type DoubleWord = ^integer; (should use Long instead} 
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Procedure SetDDS( Display: Integer ); 

Abstract : 

SetDDS sets the diagnostic display to a particular value. 

Parameters : 

Display - Desired value of the diagnostic display. 

procedure SysVers( n: integer; var S: string ); 

Abstract ; 

This procedure will provide the caller with a string that is the 
Version number of the current system. 

Parameters : 

n is the minor version number of the system. 

S will be set to the current minor version of the system. 

Procedure Command; 

Abstract : 

This procedure alternately loads Shell and the user programs whose 
runfile names are generated by Shell. It is invoked by the main 
program in System and can be exited only if the user types *C or 
if a runtime error occurs. 
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module UserPass; 
Abstract: 



This module provides facilities for dealing with the password and 
accounts file for PERQ. The login and protection facilities for 
Perq provide a very simple user validification. This system is 
NOT completly secure. 

Written by: Don Scelza 

Copyright (C) PERQ Systems Corporation, 1981. 

Version Number VI. 4 
{$555555e555?5e5e5e35553?353e3e5e5c-5exx} Exports {^eaeae^ex^^xxs 



type IDType = 0..255; 

PassType = ^Integer; 

UserRecord = packed record 
InUse: boolean; 
Name: String[31]; 
UserlD: IDType; 
GroupID: IDType; 
EncryptPass: PassType; 
Profile: String; 

end; 



{ a two word value ) 



{ is this entry in use. ) 

{ Name of the user ) 

{ The user ID of the user. } 

{ The group ID of the user. } 

{ The encrypted password. } 

{ Path name of the profile 
file. ) 



function FindUser(UserName: String; var UserRec: UserRecord): Boolean; 
function ValidUser( UserName, Password: String; 

var UserRec: UserRecord): Boolean; 
function AddUser( UserName, Password: String; Group: IDType; 

ProPath: String): Boolean; 
procedure NewUserFile; 
procedure ListUsers; 
function RemoveUsert UserName: String): boolean; 

const PassFile = '>System. Users'; 

const MaxUsers =10; 

type Users = array [0.. MaxUsers] of UserRecord; 
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function FindUserCUserName: String; var UserRec: UserRecord): Boolean; 

Abstract : 

This function is used to see if a user exists in the user file. 

Parameters : * 

UserNaroe is the name of the user that we are looking for. 

UserRec is a var parameter that is used to return the information 
about the user UserName if he is in the file. 

Results: This procedure will return true if the user UserName was in 
the user file. It will return False otherwise. 

function ValidUser( UserName, Password: String; 

var UserRec: UserRecord): Boolean; 

Abstract : 

Sees if a user name and password match. 
Parameters : 

Username is the name of the user that we want to check. 

Password is the password for the user. 

UserRec will be filled with the user information if the user name 
and password match. 

Results: If the password is valid for the user then return true. 
Otherwise return false. 

Side Effects: This function will change the file PassFile. 

function AddUser( UserName, Password: String; Group: IDType; ProPath: 
String): Boolean; 

Abstract: 

Adds a new user to the user file or changes the parameters of an 
existing user. 

Parameters : 

Username is the name of the user to add or change. 

Password is the password for the user. 

Group is the group number for the new user. 

ProPath is the path name of the profile file for this user. 
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Results: If the user could be added or changed then return true. 
Otherwise return false. 

Side Effects: This function will change the file PassFile. 

procedure NewUserFile; 

Abstract : 

This procedure is used to create a new user file. 

Side Effects: This procedure will create a new file. It will destroy 
any information in the current file. 

procedure ListUsers; 

Abstract: 

Supplies a list of the valid users. 

function RemoveUser(UserName: String): boolean; 

Abstract: 

Removes a user from the list of valid users. 

Parameters : 

UserName is the name of the user that is to be removed. 

Results: If the user could be removed, return true. Otherwise return 
false. 
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module UtiiProgress; 

Progress Reporting Routines 

Copyright (C) 1981 PERQ Systems Corporation 

Abstract : 

Routines to show progress of utilities. 

exports 

Procedure LoadCurs; 

Procedure ShowProgress(NumLines: Integer); 

Procedure QuitProgress; 

Procedure StreamProgress( van F: File ); 

Procedure ComputeProgress( Current, Max: Integer ); 

Procedure LoadBusy; 

Procedure LoadCurs; 

Abstract : 

Sets up the cursor before showing progress. 
Procedure LoadBusy; 

Abstract : 

Sets up the cursor so that we can show that we are busy. In busy 
mode, each ShowProgress moves the cursor by one in a random 
direction. This should be used when an operation is taking place 
and the utility cannot tell how long until it is done. 

Procedure QuitProgress; 

Abstract : 

No more progress to report, turn off the cursor. 

Calls; lOCursorMode. 
Procedure ShowProgress (NumLines: Integer); 

Abstract : 

If started by LoadCurs then Indicate progress by moving the cursor 
down a certain number of scan lines. If started by LoadBusy then 
update busy cursor to show that doing something. 

Parameters : 

NumLines is the number of scan lines to move the cursor. 
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Side Effects: 

CursPos is mcxlified. 

BusyX is modified if o -1. 
Environment: Assumes LoadCurs or LoadBusy has been called. 
Calls: lOSetCursorPos . 
Procedure StreamProgress( var F: File ); 
Abstract : 

Indicate progress reading a Stream file. 
Parameters : 

F is a Stream file which has been Reset. 
Side Effects: CursPos is modified. 
Calls: lOSetCursorPos. 
Errors : 

NotOpen if F is not open. 

NotReset if F is open but not Reset. 
Procedure ComputeProgress( Current, Max: Integer ); 
Abstract: 

Indicate progress given a current and maximum value. 
Parameters : 

Current is the current value. 

Max is the maximum value. 
Side Effects: CursPos is modified. 
Calls: lOSetCursorPos. 
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module Virtual; 

Virtual - Perq virtual memory manager. 

J, P. Strait 1 Jan 80. 

Copyright (C) PERQ Systems Corporation, 1980, 1982. 

Abstract : 

Virtual is the Perq virtual memory manager. It supervises the 
segment tables and exports procedures for swapping memory 
segments. Virtual is the portion of the Perq memory manager which 
must remain memory resident at all times. Perq physical memory is 
segmented into separately swappable items (called segments) which 
may contain either code or data. 

Design: See the Q-Code reference manual. 

Version Number V3.2 

exports 

const VirtualVersion = '3.2'; 

imports Memory from Memory; 
imports I0_Unit from I0_Unit; 
imports DisklO from DisklO; 

function ReturnSegment : SegmentNumber; 

procedure ReleaseSegmentNumberC Seg: SegmentNumber ); 

function NewSegroent Number: SegmentNumber; 

procedure MakeEdge( var E: MMEdge; S: SegmentNumber ); 

procedure DeleteSegment( var S: SegmentNumber ); 

procedure SwapOut( var E: MMEdge ); 

procedure Swapln( E: MMEdge; S: SegmentNumber; P: MMPosition ); 

procedure Compact; 

procedure KeepSegments; 

procedure FindHole( Fsize: MMIntSize; ForUserSegment : Boolean ); 

procedure IncIOCount( S: SegmentNumber ); 

procedure DecIOCount( S: SegmentNumber ); 

procedure SwapSegmentsIn( SI, S2, S3, S4: SegmentNumber ); 

var ScreenLast: Integer; 

Keepl, Keep2, Keep3, Keep4: SegmentNumber; 
Kludge: record case Integer of 

1: (A: DiskAddr); 

2: (D: Double) 

end; 
BlockHeader: lOHeadPtr; 
BlockAddress: Double; 
BlockSId: Segid; 
Status: lOStatPtr; 
BootSerialNum: Double; 
BootSegId: SegId; 
SwapSId: SegId; 
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function ReturnSegment : Segment Number; 

Abstract : 

ReturnSegment finds the segment number of the caller of the 
procedure which called ReturnSegment by searching the call stack. 

Result: ReturnSegment = Segment number of the caller. 

Design: This routine depends on the Perq running a single process 
operating system where the caller is in the same process as the 
memory manager. 

procedure ReleaseSegmentNumber( Seg: SegmentNumber ); 

Abstract : 

ReleaseSegmentNumber releases a segment number to the list of 
segment numbers which are not in use. 

Parameters : 

Seg - Segment number to return to the segment number free list. 

function NewSegmentNumber: SegmentNumber; 

Abstract : 

NewSegmentNumber allocates the next unused segment number. 

Errors: NoFreeSegments if there are no unused segment numbers. 

procedure MakeEdge( var E: MMEdge; S: SegmentNumber ); 

Abstract : 

MakeEdge makes an MMEdge record which the head field set to a 
certain segment number and the tail field set to the previous 
segment number (in physical address order). 

Parameters : 

E - MMEdge record to build. 

S - Segment to put in the head field. 

Errors: EdgeFailure if MakeEdge can't find the previous segment 
number. 
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procedure DeleteSeginent( var S: Segment Number ); 

Abstract: 

DeleteSegroent returns a segment to the free memory list. This is 
done (for example) when the segment's reference and 10 counts both 
reach zero. 

Parameters : 

S - Number of the segment to be destroyed. To facilitate segment 
table scanning loops that contain calls to DeleteSegment: 

X If S was resident, it is changed to be the number of the segment 
which represents the free memory. This may not be the same as the 
original value if the original segment is coalesced with an 
adjacent free segment. 

X If S was not resident, it is changed to be the number of the 
segment which preceded it in the segment table. 

X MMFirst is set to have the same value as S on exit, 
procedure SwapOut( var E: MMEdge ); 
Abstract: 

SwapOut swaps a data segment out to disk. 

Parameters : 

E - An edge where the head is the segment to be swapped and the 
tail is the previous segment. 

Result: E.T and E.H both are set to the number of the new free 
segment . 

Errors: 

PartNotMounted if the swapping partition is not mounted. 

SwapError if attempt to swap segment out while swapping is 
disabled. 

procedure Swapln( E: MMEdge; S: SegmentNumber; P: MMPosition ); 

Abstract: 

Swapin swaps a segment in from disk. 

Parameters : 

E - An edge describing where to put the segment in memory. The 
head is a free segment which will be filled by the segment to 
be swapped in. The tail is the previous segment. 

S - The segment to swap in. 

P - The position (low end or high end) to use within the head 
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segment of the edge. 

Errors: SiifapInFailure if attempt to swap in a segment which was never 
swapped out. 

procedure Compact; 

Abstract : 

Compact compacts physical memory by moving as many segments as 
possible toward low addresses. System segments (those with a 
reference count greater than one) will not be moved into the 
screen area, as segments cannot jump over one another. 

Errors: CantMoveSegment if attempt to move a segment with non-zero 10 
count . 

procedure KeepSegments ; 

Abstract : 

KeepSegments marks the segments Keepl through Keep4 as not 
Recent lyUsed so that they won't be swapped out. 

procedure FindHole( Fsize: MMIntSize; ForUserSegment : Boolean ); 

Abstract: 

FindHole attempts to find a hole (free memory) of a certain size. 
It performs a first-fit search. If a hole cannot be found, memory 
is compacted, and another first-fit search is performed. 
Eventually, a swap-out pass will be performed. 

Parameters : 

Fsize - Minimum size of the hole. This is an internal 

size— Fsize=n means n+1 blocks. 
ForUserSegment - True iff this hole is to be used for a user 

segment. System segments may not be allocated in the screen 

area. 

procedure IncIOCount( S: Segment Number ); 

Abstract : 

IncIOCount increments the count of input/output references to a 
data segment. A non-zero 10 count prevents a segment from being 
moved, swapped, or destroyed. 

IncICXIount will increment the count of only one segment and thus 
should not be applied to the base segment number of a heap. The 
segment number should be extracted from the pointer being used. 
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Parameters: 

S - Segment number. 
Errors : 

UnusedSegment if S is not in use. 

FullMemory if S is not resident and there isn't enough memory to 
swap it in. 

procedure DecIOCount( S: SegmentNumber ); 

Abstract : 

DecIXount decrements the 10 count of a data segment by one. If 
the reference and 10 counts both become zero: 

X if the segment is a data segment, it is destroyed. 

X if the segment is a code segment, it is destroyed only if it is 
in the screen or is non-resident. 

DecIOCount will decrement the count of only one segment and thus 
should not be applied to the base segment number of a heap. The 
segment number should be extracted from the pointer being used. 

Parameters : 

S - Number of the segment. 

Errors: UnusedSegment if S is not in use. 

procedure SwapSegmentsIn( SI, S2, S3, S4: SegmentNumber ); 

Abstract: 

SwapSegmentsIn ensures that when it returns, SI, S2, S3, and S4 
are resident. 

Parameters : 

SI, S2, S3, S4 - segments to swap in. 
Errors : 

NilPointer if one of the segments is zero. 

UnusedSegment if one of the segments is not really in use. 

FullMemory if there isn't enough memory to swap one of the 
segments in. 
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module VoiumeSystem; 
VoiumeSystem - TV. ( Tony Vezza ) 
CopyRight (C) 1983, PERQ Systems Corporation. 
Abstract : 



This module provides uniform abstractions of the disks available 
on a Perq. Disks are named by unique Constants of an eneumerated 
Type exported by the module. A set of operations is provided and 
each is named by a Constant of an another enumerated Type exported 
by the module. Each disk is made to appear as an array of pairs of 
data blocks and logical headers. A general address Type with two 
components, one to specify a disk and another to specify an index 
into the array on that disk, is defined and exported. Mounting and 
dismounting of disks is supported by a pair of Procedures. 
(Mounting a disk means reading a symbolic name from a known 
address on that disk and Recording a mapping of that symolic name 
to an identifier for the disk.) Operations are provided to 
determine the number of pages (pairs of data blocks and logical 
headers) and the last valid address on a given disk. 

Naming conventions (necessitated by short identifier limits): 

**Int'* - means "Internal" (hard disk without removable packs). 

"Ext" - means "External" (hard disk with removable packs). 

"Flp" - means "Floppy". 

"Mic" - means "Micropolis". 

"Phy" - means "Physical". 

"Vol" - means "Volume". 

"ID" - means "identifier" and refers to an abstract name Type. 

Version Number V4.8 

{^^sex^xx^^^^^x^X'Sex} exports {9ee%^dHBexdBex%a»e9e%x^3ex3Hexxx) 

Imports lOErrors From lOErrors; 

Type 

{ Values of Type DiskKinds denote distinct classes of disk devices 
which can be connected to a Perq. ) 

DiskKinds = (FlpDisk, IntDisk, ExtDisk); 

{ FlpUnitNumber, IntUnitNumber, and ExtUnitNumber are Types 
for numbers denoting physical units of each distinct class of disk. 
Separate Types are defined to express the necessity of performing 
distinct run time checks on values of unit numbers for each class of 
disk. Precise ranges cannot be specified at compile time (i.e. in 
this program text) because of the requirement that this program must 
run on machines of many possible configurations without recompilation. } 

Cardinal = .. #77777; 
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FlpUnitNumber = Cardinal; 
IntUnitNumber = Cardinal; 
ExtUnitNumber = Cardinal; 

{ Values of Type PhyDiskID are used to uniquely identify disk units 
for the volume mounting and dismounting operations, } 



PhyDiskID = Record 

Case Kind : 
FlpDisk 
IntDisk 
ExtDisk 
End; 



DiskKinds Of 

: (FlpUnit : FlpUnitNumber); 
: (IntUnit : IntUnitNumber); 
; (ExtUnit : ExtUnitNumber) 



{ InternalDiskKinds is the Type whose values denote the various kinds of 
internal disks. } 

IntDiskKinds = (ShugartM, Mic8, Mic5, unsupported); 

{ OnVol Address is used to represent the logical address of a block 
of a volume in data structures on THAT volume or on a nonremovable 
volume; these are typically hints which link multiple file structures 
together. SOLAR requires that such hints be two word objects with 
the two high order bits set and the eight low order bits cleared. 
The remaining 22 bits are divided into two fields: a 3 bit logical 
volume specifier and a 19 bit volume relative logical block number. 
Certain volume specifiers refer to the nonremovable volumes which are 
mounted as the corresponding logical disk (see comments below for Type 
VolID. The remaining possible values of a volume specifier field all 
denote the volume that the hint itself is written on. ) 

OnVol Address = Long; 

{ VolName is a string used as part of full file names to name mounted 
file system disks. } 

VolName = StringlS]; 

{ MaxTotalVols is the upper limit on the number of file system volumes 
that can be mounted at one time. MinVolID and MaxVolID delimit 
the range of non-nil (i.e. actually mounted) file system volumes. 
NilVolID denotes a volume different from any possible mounted volume. } 



Const 

MaxTotalVols = 8; 
MaxVolID = MaxTotalVols - 
MinVolID = 0; 
NilVolID = MinVolID - 1; 



1; 



{ VolID uniquely identifies a mounted file system volume or a nil 
volume; it is also used as a component of a VolAddress. VolID values 
in the subrange .. Maxinternal Units - 1 always denote a nonremovable 
file system volume, i.e. an internal class disk device. (This is related 
to the requirement that internal physical disks be mounted at 
corresponding fixed VolIDs by the VolMount Function.) Values in 
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MaxInternalUnits .. MaxVolID denote mounted removeable 

volumes. MaxInternalUnits is an implicit Constant whose value is 

determined by the configuration of the machine. 

VolRangeType is intended for use as an index Type for arrays which 
correspond to mounted actual disks only. ) 

Type 
VolID = NilVolID .. MaxVolID; 
VolRangeType = MinVolID .. MaxVolID; 

{ VolBlockNumber is a subrange of Long used to uniquely specify a block of 
a file system volume. A better Type defin ition (were it expressible 
in current Perq Pascal) would be: #0 .. #1777777, i.e. 19 bit non- 
negative Integers. } 

VolBlockNumber = Long; 

{ VolAddress uniquely specifies a block on any of the mounted file 
system disks. ) 

VolAddress = Record 

Volume : VolID; 
BlockNumber : VolBlockNumber; 
End; 

{ VolBuffer defines an uninterpreted structure to be used for input 
and output buffers for data blocks during volume io operations. 
These buffers must be aligned on 256 word boundaries. ) 

VolBuffer = Packed ArraylO .. 40961 Of Boolean; 

ptrVolBuffer = ^VolBuffer; 

{ VolHeaderBuffer defines an structure to be used for translated input 
and output buffers for header blocks during volume io operations. ) 

VolHeaderBuffer = Record 

SerialNumber : VolBlockNumber; 
SegmentBlockNumber : Integer; 

FreeListHint : Integer; (formerly called filler) 
PreviousBlock, 

NextBlock : VolBlockNumber; 
End; ( VolHeaderBuffer ) 

PtrVolHeaderBuffer = ^VolHeaderBuffer; 

( VolIOCommand enumerates the commands available in the volume io 
operations. Vol 10 and TryVolIO. ) 

VolIOCommand = (VolRd, VolRdCheck, VolWr, VolWrCheck, VolReset, 

( Last two for error reporting only (floppy only) ) 
VolHdrRead, VolHdrWrite 

); 

procedure InitVolumeSystem ; 
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Procedure VolDiskReset( VID : Vol ID); 
Function GetlntDiskKind : IntDiskKinds; 
Function VolMount( FID : PhyDiskID ) : VolID; 
Procedure VolDisMount( PID : PhyDiskID ); 
Function VolIDLookUpC Name : VolName) : VolID; 
Function VolNameLookUp( VID : VolID) ; VolName; 
Function VolToOnVolAddr( VA : VolAddress) : OnVolAddress; 
Function OnVolToVolAddr( VID : VolID; 

OVA : OnVolAddress ) : VolAddress; 
Function VolIDToPhyID( VID : VolID) : PhyDiskID; 
Function PhyIDToVolID( PID : PhyDiskID) : VolID; 
Function LastVol Address ( VID 
Function VolNumberPages( VID 
Procedure VolIO( VA 

Ptr 

HPtr 

VolCommand 



VolID ) : VolAddress; 
Volld) : VolBlockNumber; 
VolAddress; 
PtrVolBuffer; 
PtrVolHeaderBuf f er ; 
VolIOCommand ) ; 



Function TryVolIO( VA : VolAddress; 

Ptr : PtrVolBuffer; 

HPtr : PtrVolHeaderBuf fer; 

VolCommand : VolIOCommand; 

NumTries : Integer ) : Boolean; 

Exception NoSuchNameForVoKN : VolName); 

Raised by VolIdLookUp(n) if no mounted Volume has N as its name 

Exception VBNOutOfRange(VID : VolID; VBN : VolBlockNumber); 

Raised when a VolAddress, VA, passed to an operation is such that 
VA.BlockNumber is greater than Vol NumberPages(VA. Volume) 

Exception NoSuchVoKvid : VolID); 

Raised when a VolAddress, VA, or a VolID, VID, passed to an operation 
is such that VA. Volume or VID denote a Volume which is not Mounted 

Exception NoSuchDevice(D : PhyDiskID); 

Raised when a PhyDiskID, D, passed to an operation denotes a Disk not 
in the 
configuration 

Exception VolErrInc(Error_code : Integer (lOEFirstError .. lOELastError } ); 

Raised whenever an entry in VolErrorCnt is incremented; 

this is a temporary measure to allow the compatibility version of 

DisklO to keep its variable ErrorCnt updated. 
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Exception Vol lOFai lure (Msg : String; 

Operation : VolIOCommand; 
Addr : VolAddress; 
SoftStat : Integer); 

Exception VolDislcError(Msg : String); 

Exception VMountErr( D : PhyDiskID); 

Var VolErrorCnt : Array [IOEFirstError..IOELastError, 

VolRangeType] Of Integer; 

Procedure InitVolumeSystem ; 

Abstract : 

Initialize Volume System 

Results: Currently Mounts Volumes - Floppy and HardDisk. 

Calls: 

- VInitialize 

Function GetlntDiskKind : IntDiskKinds; 

Abstract : 

Tells What Type of disks are connected to the Internal Disk 
Controller one of the three values: 

- ShugartM 

- Mic8 

- Mic6 

Parameters : 

None. Just returns the Value of the Variable, IntDiskType, which 
is set up at InitVolumeSystem. 

Results: Returns the value Internal Disk Kind. 

Function VolIDLookUp( Name : VolName) : VolID; 

Abstract : 

Scan the Disk Control Array for a Volume with Name and return that 
Volume's ID. 

Parameters: 

Name is a Volume Name (a StringESl). 
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Results: The Volume ID corresponding to the Volume with Name if such a 
Volume exists and is mounted (in the DCA). If no Volume is mounted 
then return the Nil Volume ID. 

Errors : 

- NoSuchNameForVol . 

Function VolNaroeLookUp( VID : VolID) : VolName; 
Abstract : 

This Function returns the Volume Name of a Volume ID. 
Parameters : 

VID - VolID. 

Results: VolName corresponding to the VID. The VolumeName for a mounted 
Volume is set up by the Volume Mount Function. 

Errors : 

- NoSuchVol, Raised if this VID is not Mounted. 
Function VolToOnVolAddrC VA : VolAddress) : OnVolAddress; 

Abstract : 

Result given, in general, by 

OnVolAddress := 2"31 + 2"30 

+ VA.Volume X 2"27 
+ VA.BlockNumber X 2^8 

Note that if VA.Volume > 3, use 7. 

Parameters : 

VA - VolAddress 

Results: 

- OnVolAddress, given by formula above. 

Calls: 

- VolToLogAddr 

- VolNumberPages 

Errors : 

- NoSuchVol (in VolNumberPages) 

- VBNOutofRange 
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Function OnVolToVolAddr( VID : VolID; OVA : OnVolAddress ) : VolAddress; 

Abstract: 

Result given by 

Vol Address. Volume := VID 

VolAddress. BlockNumber := OVA Bits <26:8> 

Note that the other bits of OVA are Ignored. 
Parameters : 

OVA - OnVolAddress. 
Results: 

- VolAddress, given by formula above. 

Calls: 

- LogToVolAddr 

- VolNumberPages 

Errors : 

- NoSuchVol (in VolNumberPages) 

- VBNOutofRange 

Function Vol IDToPhyID( VID : VolID) : PhyDiskID; 
Abstract: 

Takes a Volume ID and returns that Volumes Physical Disk ID. 
Parameters : 

VID - VolID. 
Results: 

- PhyDiskID selected by given Volume ID. 
Errors : 

- NoSuchVol 

Function PhyIDToVolID( PID : PhyDiskID) : VolID; 
Abstract : 

Takes a Physical Disk ID and returns that Disk's Volume ID. 
Parameters : 

PID - PhyDiskID. 
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Results: 

- Vol ID of given Physical Disk ID. 
Errors : 

- NoSuchDevice 

Function LastVol Address ( VID :" VolID ) : VolAddress; 

Abstract: 

Returns the Volume Address of the last Sector on the selected 
disk. Given by: 

LastVolAddress. Volume := VID 
LastVolAddress.BlockNumber := VolNumberPages - 1 

Parameters : 

VID - VolID 
Results: 

LastVolAddress - VolAddress 
Calls: 

- VolNumberPages 
Errors : 

- NoSuchVol 

Function VolNumberPages( VID : Volld) : VolBlockNumber; 
Abstract : 

Returns the total number of Blocks on the Volume. Given by: 

- VolNumberPages := ( PtrDCA^[ VID] .Phys Parameters. Cylinder 

X PtrDCA*[ VIDl.PhysParameters.Head 
X PtrDCA^[ VIDl.PhysParameters. Sector ) 
- PtrDCA'^l VIDl.PhysParameters. BootSize 

Parameters : 

VID - VolID 

PhyParameters in DCB 

- Cylinder ( Number of Cylinder on Disk.) 

- Head ( Number of Tracks per Cylinder.) 

- Sector ( Number of Sectors per Track. ) 

- BootSize ( Number of Sectors for Boot.) 
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Results: 

VolNumberPages - VolBlockNumber ( Long) 
Errors : 

- NoSuchVol 

Procedure VolIO( VA : Vol Address; 
Ptr : PtrVolBuffer; 
HPtr : PtrVolHeaderBuffer; 
VolCommand : VolIOCommand ) ; 

Abstract : 

This routine is used by the File System to perform Disk 10. It 
calls DoVolIO with a retry count of 16. 

Parameters : 

VA - Vol Address 
Ptr - PtrVolBuffer 
HPtr - PtrVolHeaderBuffer 
VolCommand - VolIOCommand 

Results: The Buffers are either Written onto the Disk, or Disk Data is 
read into the Buffers. 

Calls: 

- DoVolIO 
Errors : 

- ( See DoVolIO.) 
Function TryVolIO( VA : Vol Address; 



Ptr 
HPtr 

VolCommand 
NumTries 

Abstract: 



PtrVolBuffer; 
PtrVolHeaderBuffer; 
VolIOCommand; 
Integer ) : Boolean; 



This Function is used by the File System to perform Disk 10. It 
calls DoVolIO with a retry count of NumTries. 

Parameters : 

VA - VolAddress 
Ptr - PtrVolBuffer 
HPtr - PtrVolHeaderBuffer 
VolCommand - VolIOCommand 
NumTries - Integer 
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Results: 

TryVolIO - Boolean. Indicates whether or not transfer was 

completed successfully. 
- The Buffers are either Written onto the Disk, or Disk Data is 

read into the Buffers. 

Calls: DoVolIO 

Errors: ( See DoVolIO. ) 

Function VoiMount( PID : PhyDiskID ) : VolID; 

Abstract : 

The Mount Procedure is used to create a DCB for a particular drive 
and enter that DCB in the Disk Control Array. Returns the VID of 
the DCA entry which was used to Mount the Disk. 

Parameters : 

PID - PhyDiskID 

Results: VolMount - VolID 

Calls: Mount 

Errors : ( See Mount . ) 

Procedure VolDisMount( PID : PhyDiskID ); 

Abstract : 

Volume DisMount 

The DisMount Procedure Di solves the DCB for a particular Drive 
that was previously mounted, and frees up the Disk Control Array 
entry which was allocated for that DCB. 

Parameters : 

PID - PhyDiskID 

Results: DisMounts the Disk. 

Calls: Dismount 

Errors: ( See DisMount.) 
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Procedure VolDiskReset( VID : VolID); 

Abstract: 

Used to Reset and Initialize the Disk Controller, Disk Drive and 
Disk uCode. Drive is Recalibrated. 

Parameters : 

VID - VolID. Of Disk to be affected. 

Results: Drive and Controller is reset and reclibrated. 

Calls: UnitIO 

Errors: NoSuchVol and Vol lOFai lure 
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rocxlule Writer; 

Writer - Stream package output conversion routines. 

J. P. Strait ca. 1 Jan 81. 

Copyright (C) PERQ Systems Corporation, 1981. 

Abstract : 

Writer is the character output module of the Stream package. It 
is called by code generated by the Pascal compiler in response to 
a Write or Writeln. It is one level above Module Stream and uses 
Stream's output routines. 

Version Number V2.2 

exports 

imports Stream from Stream; 

procedure WriteBooleanC var F: FileType; X: Boolean; Field: integer ); 
procedure WriteCh( Var F: FileType; X: char; Field: integer ); 
procedure WriteChArrayC var F: FileType; var X: ChArray; 

Max, Field: integer ); 
procedure Writeldentifier( var F: FileType; X: integer; 

var IT: Ident Table; L, Field: integer ); 
procedure Writelnteger( var F: FileType; X: integer; Field: integer ); 
procedure WriteString( var F: FileType; var X: String; Field: integer ); 
procedure WriteX( var F: FileType; X, Field, B: integer ); 

procedure WriteBooleanC var F: FileType; X: Boolean; Field: integer ); 

Abstract : 

Writes a boolean in fixed format. 

Parameters : 

X - the boolean to be written. 

F - the file into which X is to be written. 

Field - the size of the field into which X is to be written. 

procedure WriteChC var F: FileType; X: char; Field: integer ); 

Abstract : 

Writes a character in a fixed format. 

Parameters : 

X - the character to be written. 

F - the file into which X is to be written. 

Field - the size of the field into which X is to be written. 
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procedure WriteChArray( var F: FileType; var X: ChArray; 

Max, Field: integer ); 

Abstract : 

Writes a packed character array in fixed format. 

Parameters : 

X - the character array to be written. 

F - the file into which X is to be written. 

Field - the size of the field into which X is to be written. 

Max - the declared length of X. 

procedure Writeldentifier( var F: FileType; X: integer; 
var IT: Ident Table; L, Field: integer ); 

Abstract : 

Writes an identifier from a table in fixed format. 

Parameters : 

X - the ordinal of the identifier in the range to L. 
F - the file to which X is written. 
IT - the table of identifier names indexed from to L. 
L - the largest identifier ordinal defined by the table. 
Field - the size of the field into which X is written. 

Errors: BadldTable if the length of identifier table is less than 1. 

procedure WritelntegerC var F: FileType; X: integer; Field: integer ); 

Abstract : 

Writes a decimal integer in fixed format. 

Parameters : 

X - the integer to be written. 

F - the file into which X is to be written. 

Field -the size of the field into which X is to be written. 

procedure WriteString( var F: FileType; var X: String; Field: integer ); 

Abstract : 

Writes a string in fixed format. 

Parameters : 

X - the string to be written. 

F - the file into which X is written. 

Field - the size of the field into which X is written. 



- 307 - 



POS Operating System - Module Writer January 16, J 984 

procedure WriteX( var F: FileTypej X, Field, B: integer ); 

Abstract: 

Writes an integer in fixed format with base B. 

Parameters : 

X - the integer to be written. 
F - the file into which X is to be written. 
Field - the size of the field into which X is to be written. 
B - the base of X. It is an integer whose absolute value must be 
between 2 and 36, inclusive. 

Errors: BadBase if the base is not in 2.. 36. 
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98 Abort C Module Except 1 

217 AbortOnKey [ Module PopUp 1 

286 AddUser [ Module UserPass ] 

203 Adjust [ Module PERQ String ] 

7 AllocDisk [ Module AUocDisk 1 

219 AllocNameDesc [ Module PopUp 1 

206 ApjjendChar [ Module PERQ String 1 

206 AppendString [ Module PERQ String 1 

246 ArcCos [ Module RealFunctions 1 

240 ArcCosLarge [ Module RealFunctions 1 

245 ArcSin [ Module RealFunctions 1 

240 ArcSinLarge [ Module RealFunctions J 

246 ArcTan [ Module RealFunctions 1 
246 ArcTan2 [ Module RealFunctions 1 
240 ArcTan2Zero [ Module RealFunctions 1 

1 BadAlignment [ Module AlignMemory 1 

274 BadBase [ Module Stream ] 

248 BadBaudRate [ Module RS232Baud ] 

272 BadldTable [ Module Stream 1 

188 Bad Increment [ Module Memory ] 

101 BadLength [ Module FileAccess 1 

188 BadMaximum [ Module Memory ] 

216 BadMenu [ Module PopUp 1 

16 BadMobility I Module BigArea 1 

6 BadPart [ Module AllocDisk ] 

209 BadPatterns I Module PMatch 1 

190 BadPointer [ Module Memory 1 

248 BadRSDevice [ Module RS232Baud 1 

188 BadSize [ Module Memory ] 
19 BadTlme [ Module Clock ] 

256 BadWNum [ Module Screen 1 

232 BufferPointer [ Module ReadDisk 1 

189 CantMoveSegment I Module Memory 1 
38 CCos [ Module ComplexFunctions 1 

37 CCosImLarge [ Module ComplexFunctions ] 
36 CCosReLarge ( Module ComplexFunctions 1 

38 CExp ( Module ComplexFunctions 1 

36 CExpImLarge [ Module ComplexFunctions ] 

36 CExpImSmall ( Module ComplexFunctions 1 

36 CExpReLarge [ Module ComplexFunctions 1 

36 CExpReSmall [ Module ComplexFunctions 1 
42 Cf Init [ Module Configuration 1 

229 ChangeDisk [ Module ReadDisk 1 

230 ChangeHeader [ Module ReadDisk 1 
192 ChangeSize [ Module Memory 1 
259 ChangeTitle I Module Screen ) 
261 ChangeWindow [ Module Screen ] 
232 ChgHdr [ Module ReadDisk 1 

196 CleanUpMemory [ Module Memory 1 

136 Clk Initialize [ Module IXlock ] 

136 Clk'lnterrupt [ Module IXlock 1 

136 ClklUnitlO [ Module IXlock 1 

39 CLn I Module ComplexFunctions 1 

37 CLnSmall [ Module ComplexFunctions 1 

38 CMult [ Module ComplexFunctions ) 
30 CnvUpper I Module CmdParse J 
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191 CodeOrDataSeg [ Module Memory 1 
284 Command [ Program System ] 

293 Compact [ Module Virtual ] 

289 ComputeProgress I Module Util Progress ) 

204 Concat ( Module PERQ.String 1 

15 ConsecutiveSegments T Module BigArea 1 
206 ConvUpper [ Module PERQ_String 1 

244 Cos [ Module RealFunctions ] 
247 CosH [ Module RealFunctions 1 

241 CosHLarge I Module RealFunctions J 

239 CosLarge [ Module RealFunctions ] 

245 CoTan [ Module RealFunctions 1 

40 CPowerC [ Module ComplexFunctions J 

40 CPowerR [ Module ComplexFunctions 1 

38 CPowerZero ( Module ComplexFunctions 1 

16 CreateBigArea [ Module BigArea 1 

17 CreateContiguousArea ( Module BigArea 1 
81 CreateHeap [ Module Dynamic 1 

192 CreateSegment [ Module Memory 1 

102 CreateSpiceSegment ( Module FileAccess 1 

260 CreateWindow [ Module Screen 1 

39 CSin [ Module ComplexFunctions 1 

37 CSinlmLarge I Module ComplexFunctions 1 

37 CSinReLarge [ Module ComplexFunctions J 

39 CSqrt I Module ComplexFunctions 1 

282 CtlC I Program System 1 

282 CtlCAbort [ Program System 1 

282 CtlShftC [ Program System ] 

1% Current Segment [ Module Memory 1 

256 CursOutSide [ Module Screen 1 

191 DataSeg [ Module Memory 1 

13 DblEql [ Module Arith 1 

14 DblGeq [ Module Arith 1 
14 DblGtr I Module Arith 1 
14 DblLeq C Module Arith 1 
14 DblLes [ Module Arith 1 
13 DblNeq [ Module Arith ] 

9 DeallocChain [ Module AllocDisk 1 

8 DeallocDisk [ Module AllocDisk 1 

17 DecBigAreaRef I Module BigArea 1 

18 DecContiguousAreaRef [ Module BigArea 1 
294 DecIOCount [ Module Virtual ] 

193 DecRef Count [ Module Memory 1 
117 DelError ( Module FileUtils 1 
206 Delete [ Module PERQ String 1 
106 DeleteFilelD [ Module FileDir 1 
292 DeleteSegment [ Module Virtual 1 
220 DestroyCurs [ Module PopUpCurs ] 

81 DestroyHeap [ Module Dynamic J 

217 DestroyNameDesc [ Module PopUp ] 

218 DestroyRes [ Module PopUp 1 

102 DestroySpiceSegment [ Module FileAccess 1 

6 DeviceDismount [ Module AllocDisk 1 

6 DeviceMount [ Module AllocDisk 1 

176 Devlnterrupt [ Module I0_Unit 1 

195 DisableSwapping [ Module Memory 1 
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7 DismountPartition [ Module AllocDisk ] 

6 DisplayPartitions [ Module AllocDisk 1 

80 DisposeP [ Module Dynamic ] 

98 DivZero [ Module Except ] 

25 DoCmdFile [ Module CmdParse ] 
77 DoSwap [ Module DoSwap 1 

11 DoubleAbs [ Module Arith 1 

11 DoubleAdd [ Module Arith 1 

13 DoubleBetween [ Module Arith ] 

12 DoubleDiv [ Module Arith ] 
12 Doubleint [ Module Arith 1 
12 DoubleMod [ Module Arith 1 
12 DoubleMul [ Module Arith 1 
11 DoubleNeg [ Module Arith 1 
11 DoubleSub [ Module Arith 1 

29 DstryArgRec [ Module CmdParse 1 

26 DstryCmdFiles [ Module CmdParse 1 
29 DstrySwitchRec [ Module CmdParse 1 
98 Dump [ Module Except 1 

89 ElOBadCommand ( Module EtherlOIO 1 
88 ElOByteCount I Module EtherlOIO J 

91 ElODataBytes I Module EtherlOIO 1 
88 ElODByteError [ Module EtherlOIO J 

92 ElOGetAdr I Module EtherlOIO 1 

90 ElOInit [ Module EtherlOIO 1 

90 ElOIO I Module EtherlOIO 1 

88 ElONInited [ Module EtherlOIO 1 

89 ElONoHardware [ Module EtherlOIO 1 

88 ElONReset [ Module EtherlOIO 1 

89 ElOReceiveDone [ Module EtherlOIO 1 

91 ElOReset I Module EtherlOIO 1 

95 ElOSrv [ Module Ether Interrupt 1 

92 ElOState [ Module EtherlOIO 1 

89 ElOSTTooMany [ Module EtherlOIO 1 

89 ElOTooMany [ Module EtherlOIO 1 

91 ElOWait [ Module EtherlOIO ] 

92 ElOWIO [ Module EtherlOIO 1 
189 EdgeFailure [ Module Memory 1 

195 EnableSwapping [ Module Memory 1 
98 EStack [ Module Except ] 

25 ExitAllCmdFiles [ Module CmdParse 1 

25 ExitCmdFile [ Module CmdParse 1 

283 Ex it Program [ Program System 1 

242 Exp ( Module RealFunctions 1 

237 ExpLarge [ Module RealFunctions 1 

238 ExpSmall [ Module RealFunctions 1 

109 FilelDtoSeglD [ Module FileSystem 1 

196 FindCodeSegment I Module Memory 1 
231 FindDiskBuffer [ Module ReadDisk 1 
293 FindHole I Module Virtual 1 

6 FindPartition I Module AllocDisk 1 

286 FindUser [ Module UserPass 1 

110 FixFilename [ Module FileSystem 1 
46 FloatLong [ Module Convert 1 

141 FLP Initialize) [ Module lOFloppy 1 

141 FLPJnterrupt I Module lOFloppy ) 
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231 FlushAll C Module ReadDisk 1 

231 FlushBuffer 1 Mcxiule ReadDisk ] 

230 FlushDisk 1 Module ReadDisk 1 

228 FlushFail [ Module ReadDisk 1 

122 FSAddToTitleLine [ Module FileUtils 1 

108 FSBadName [ Module FileSystem 1 
114 FSBlkRead [ Module FileSystem 1 
114 FSBlkWrite I Module FileSystem 1 
113 FSClose [ Module FileSystem 1 

119 FSDelete [ Module FileUtils 1 

109 FSDirClose [ Module FileSystem 1 

110 FSDismount [ Module FileSystem 1 

113 FSEnter I Module FileSystem 1 

123 FSExtSearch ( Module FileUtils J 
122 FSGetFSData I Module FileUtils 1 

111 FSGetPrefix I Module FileSystem 1 

109 FSInit ( Module FileSystem 1 

HI FSInternalLookUp: [ Module FileSystem 1 

114 FSIsFSDev [ Module FileSystem 1 

HI FSLocalLookUp: I Module FileSystem 1 

112 FSLookUp I Module FileSystem 1 

121 FSMakeDi rectory [ Module FileUtils 1 

110 F^ount [ Module FileSystem 1 
108 FSNotFnd I Module FileSystem 1 

121 FSPopSearchltem [ Module FileUtils 1 

122 FSPushSearchltem I Module FileUtils ] 

123 FSRemoveDots I Module FileUtils 1 

120 FSRename ( Module FileUtils 1 

120 FSScan I Module FileUtils ) 
112 FSSearch [ Module FileSystem 1 
122 FSSetFSData [ Module FileUtils 1 
110 FSSetPrefix [ Module FileSystem 1 

121 FSSetSearchList [ Module FileUtils 1 
114 FSSetupSystem [ Module FileSystem 1 

125 FTPAddRequest i Module FTPUtils 1 
127 FTPChkDev [ Module FTPUtils 1 

126 FTPGetFile [ Module FTPUtils 1 
126 FTPInit I Module FTPUtils 1 

126 FTPPutFile I Module FTPUtils 1 
125 FTPQuitNet I Module FTPUtils 1 

127 FTPSetMyAddr I Module FTPUtils 1 
278 FullLn [ Module Stream 1 

189 FullMemory [ Module Memory 1 

190 Full Segment [ Module Memory 1 
276 GetB i Module Stream 1 

276 GetC I Module Stream 1 

213 GetCrodLine [ Module PopCmdParse 1 

214 GetConfirm [ Module PopCmdParse 1 
105 GetDisk [ Module FileDir ] 

% GetEtherTime [ Module EtherTime 1 

105 GetFilelD t Module FileDir 1 

261 GetFont * [ Module Screen 1 

299 GetlntDiskKind [ Module VolumeSystem 1 

21 GetPERQ2GMT I Module Clock 1 

21 GetPERQ2Local I Module Clock 1 

213 GetShellCmdLine I Module PopCmdParse 1 
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31 GetSymbol [ Module CmdParse 1 

128 GetTStamp [ Module GetTimeStamp ] 

20 GetTString [ Module Clock ] 

261 GetWindowParms [ Module Screen ] 

134 GiveHelp [ Module Helper ] 

132 gpAuxCommand [ Module gpib ] 
143 GPB GetStatus [ Module lOGPIB 1 
143 GPB'initialize I Module lOGPIB 1 
143 GPB~Interrupt [ Module lOGPIB 1 
143 GPB"ReadChar I Module lOGPIB J 
143 GPB"UnitIO [ Module lOGPIB 1 
143 GPBlWriteChar [ Module lOGPIB 1 

133 gpCTeanup [ Module gpib 1 
133 gpFlushBuffer [ Module gpib 1 

131 GPIBerror t Module gpib 1 

132 gplnit [ Module gpib 1 

133 gpITalkHeListens i Module gpib ] 
132 gpPutByte I Module gpib 1 

19 GTSNotPERQ2 I Module Clock 1 

20 GTSN0Z8O [ Module Clock 1 
283 HardCopy [ Program System 1 

232 HeaderPointer [ Module ReadDisk 1 

283 HelpKey [ Program System 1 

273 IdNotDefined [ Module Stream 1 

273 IdNotUnique I Module Stream 1 

293 IncIOCount ( Module Virtual 1 

193 IncRefCount [ Module Memory 1 

102 Index I Module FileAccess 1 

6 InitAUoc ( Module AllocDisk 1 

231 InitBuffers i Module ReadDisk J 

24 InitCmdFile [ Module CmdParse 1 

220 InitCurs [ Module PopUpCurs 1 

98 InitExceptions [ Module Except 1 

221 InitFooter [ Module PopUpCurs 1 
156 Initio [ Module lOJnit 1 

191 InitMemory [ Module Memory 1 

217 InitPopUp [ Module PopUp 1 

226 InitRandom I Module RandomNumbers 1 

278 InitStream [ Module Stream 1 

299 InitVolumeSystem ( Module VolumeSystem 1 

206 Insert I Module PERQ_String 1 

13 IntDouble [ Module Arith 1 

225 IntegerSort [ Module Quicksort 1 

208 IntToStr [ Module PERQ.String 1 

98 InxCase t Module Except T 

179 lOBeep [ Module I0_Unit 1 

178 lOBusy [ Module I0_Unit 1 

162 lOChooseTablet I Module lO^Others 1 

180 IXlearExceptions [ Module 10 Unit 1 
180 lOCPresent C Module 10 Unit 1 

177 IXRead [ Module IO_UnTt 1 

179 lOCRNext [ Module 10 Unit 1 

158 lOCursorMode [ Module 10 Others 1 

177 IXWrite [ Module IO_Unit 1 

138 lOErrString t Module lOErrMessages 1 

178 lOGetStatus [ Module lO^Unit 1 
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161 lOGetTime [ Module 10 Others ] 

161 lOKeyClear [ Module 10 Others 1 

161 lOKeyDi sable ( Module lO Others 1 

161 lOKeyEnable [ Module 10 Others 1 
159 lOLoadCursor I Module 10 Others 1 
178 lOPutStatus [ Module 10 Unit 1 

159 lOReadCursPicture [ Module 10 Others 1 

160 lOReadTablet [ Module lO^Others 1 
160 lOScreenSize [ Module 10 Others ] 

162 lOSetBitPadUpdateTimeOut ~[ Module IO_Others 1 
160 lOSetCursorPos I Module 10 Others 1 

180 lOSetExceptions I Module 10 Unit 1 

159 lOSetFunction [ Module 10 Others 1 

159 lOSetModeTablet I Module l0_0thers 1 
162 lOSetRealRelTablet [ Module 10 Others 1 

160 lOSetTabPos I Module 10 Others"! 
98 lOSFlt ( Module Except )~ 

178 lOWait [ Module 10 Unit 1 

210 IsPattern I Module PMatch 1 

45 JumpControl Store [ Module Control Store 1 

293 KeepSegments [ Module Virtual 1 

146 Key Clear I Module lOKeyboard 1 

146 Key Disable [ Module lOKeyboard 1 

146 Key^Enable [ Module lOKeyboard 1 

145 Key'lnitialize I Module lOKeyboard 1 

145 Key^Interrupt I Module lOKeyboard 1 

145 Key~ReadChar [ Module lOKeyboard 1 

145 Key^TLate [ Module lOKeyboard 1 

273 LargeNumber I Module Stream 1 

274 LargeReal [ Module Stream 1 

302 LastVolAddress [ Module VolumeSystem 1 

262 Line I Module Screen 1 

287 ListUsers [ Module UserPass 1 
242 Ln I Module Real Fund ions 1 
182 Load i Module Loader ] 

288 LoadBusy [ Module UtilProgress 1 

44 LoadControl Store [ Module Control Store 1 
288 LoadCurs [ Module UtilProgress 1 

45 LoadMicroInstruction t Module ControlStore 1 
242 LoglO t Module RealFunctions ] 

238 LogSmall [ Module RealFunctions 1 

291 MakeEdge [ Module Virtual 1 

195 MarkMemory [ Module Memory 1 

218 Menu [ Module PopUp 1 

118 MkDirErr [ Module FileUtils ] 

6 MountPartition i Module AllocDisk 1 

98 MParity I Module Except 1 

98 MulOvfl [ Module Except 1 

197 MultiRead [ Module MultiRead ] 

1 NewBuffer i Module AlignMemory 1 

258 NewLine [ Module Screen ] 

80 NewP [ Module Dynamic ] 

291 NewSegmentNumber ( Module Virtual 1 

287 NewUserFile [ Module UserPass ] 

26 NextID [ Module CmdParse 1 

27 NextlDString [ Module CmdParse 1 
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ft 

27 NextString ( Module CmdParse ] 
190 NilPointer [ Module Memory ] 

3 NoFreePartltions I Module AllocDisk 1 

190 NoFreeSegments [ Module Memory ] 

298 NoSuchDevice ( Module Volume^stem ] 

298 NoSuchNameForVol [ Module Volume^stem 1 

298 NoSuchVol [ Module VolumeSystem ] 

101 NotAFile [ Module FileAccess 1 

80 NotAHeap [ Module Dynamic ] 

272 NotBoolean [ Module Stream 1 

188 NotDataSegment [ Module Memory 1 

272 Not Identifier t Module Stream 1 

273 NotNumber [ Module Stream 1 

270 NotOpen [ Module Stream 1 

274 NotReal t Module Stream 1 

271 NotReset [ Module Stream ] 
271 NotRewrite I Module Stream 1 

270 NotTextFile [ Module Stream 1 

212 NullIdleProc [ Module PopCmdParse 1 

301 OnVolToVolAddr [ Module VolumeSystem 1 

216 Outside [ Module PopUp 1 

98 OverReal [ Module Except 1 

98 Ovf ILI ( Module Except ] 

208 Pad [ Module PERQ_String 1 

28 ParseCmdArgs [ Module CmdParse 1 

29 ParseStringArgs ( Module CmdParse 1 
5 PartFull [ Module AllocDisk 1 

189 PartNotMounted [ Module Memory 1 

271 PastEof [ Module Stream 1 

209 PattDebug [ Module PMatch 1 

210 PattMap [ Module PMatch ] 
210 PattMatch [ Module PMatch 1 
223 PFileEntry [ Module Profile 1 
223 PFilelnit [ Module Profile 1 

301 PhylDToVolID I Module VolumeSystem 1 

222 PNotFound [ Module Profile 1 

222 PNotlnited [ Module Profile ) 

94 PopDCB I Module Ether Interrupt 1 

216 PopKeyHit I Module PopUp 1 

212 PopUniqueCmd Index [ Module PopCmdParse 1 

207 Pos [ Module PERQ_String 1 

206 PosC [ Module PERQ_String 1 
243 Power [ Module RealFunctions ] 
239 PowerBig [ Module RealFunctions 1 
243 Power I [ Module RealFunctions 1 

238 PowerNeg ( Module RealFunctions 1 

239 PowerSmall [ Module RealFunctions ] 
238 PowerZero I Module RealFunctions 1 
277 PReadln [ Module Stream ) 

207 PrependChar [ Module PERQ String ) 
148 Ptr GetStatus [ Module lOPointDev 1 
147 Ptr Initialize [ Module lOPointDev ] 

147 Ptr Interrupt ( Module lOPointDev 1 

148 Ptr~PutStatus [ Module lOPointDev 1 
148 Ptr UnitIO [ Module lOPointDev 1 

94 PushDCB I Module Ether Interrupt 1 
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276 PutB [ Module Stream ] 

277 PutC I Module Stream J 

106 PutFilelD ( Module FileDir 1 

21 PutP£RQ20ffset [ Module Clock ] 

277 PWriteln I Module Stream ) 

288 QuitProgress [ Module UtilProgress 1 

46 R2L0vrFlow [ Module Convert 1 
99 RaiseP I Module Except 1 

226 Random [ Module RandomNumbers ] 

229 ReadAhead [ Module ReadDisk ] 

233 ReadBoolean [ Module Reader 1 

233 ReadCh [ Module Reader 1 

234 ReadChArray [ Module Reader 1 
198 ReadD [ Module PasLong ] 

229 ReadDisk [ Module ReadDisk 1 

229 ReadHeader [ Module ReadDisk ] 

234 Read Identifier [ Module Reader 1 

234 Readlnteger [ Module Reader ] 
200 ReadR [ Module PasReal ] 

250 ReadRunFile [ Module RunRead ] 

251 ReadSegNames [ Module RunRead ] 

103 ReadSpiceSegraent I Module FileAccess 1 

235 ReadString [ Module Reader 1 
235 ReadX [ Module Reader ] 

98 Real2Int [ Module Except 1 

98 RealDivO [ Module Except 1 

274 RealWriteError I Module Stream 1 

260 RefreshWindow [ Module Screen J 
156 RelnitDevices [ Module 10 Init J 
231 ReleaseBuffer [ Module ReadDisk 1 

291 ReleaseSegmentNumber I Module Virtual 1 

31 RemDelimiters [ Module CmdParse ] 

28 RemoveQuotes [ Module CmdParse ] 

287 RemoveUser [ Module UserPass 1 

119 RenDir [ Module FileUtils 1 

117 RenError [ Module FileUtils 1 

119 RenToExist I Module FileUtils 1 

270 ResetError [ Module Stream 1 

291 ReturnSegroent [ Module Virtual 1 

207 RevPosC I Module PERQ_String 1 

270 RewriteError [ Module Stream J 

47 RoundLong [ Module Convert 1 
151 RSA Interrupt I Module lORS 1 
151 RSBJnterrupt [ Module lORS 1 

149 RS Initialize [ Module lORS ] 

150 RSlPutStatus t Module lORS 1 

150 RS.ReadChar I Module lORS ] 

151 RS UnitIO [ Module lORS ] 
150 RS'WriteChar [ Module lORS 1 

258 SaveLineEnd [ Module Screen ] 

259 SBackSpace I Module Screen ] 

258 SChrFunc [ Module Screen 1 

259 SClearChar I Module Screen 1 

262 Screenlnit [ Module Screen 1 

261 ScreenReset [ Module Screen 1 

263 Scrounge t Module Scrounge 1 
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257 SCurChr [ Module Screen 1 

257 SCurOff [ Module Screen 1 

257 SCurOn [ Module Screen 1 

109 SeglDtoFilelD [ Module FileSystem ] 

80 SegTooBigForNew [ Module Dynamic 1 

125 SendStopVax ( Module FTPUtils J 

248 SetBaud [ Module RS232Baud ] 

220 SetCurs [ Module PopUpCurs 1 

284 SetDDS [ Program System 1 

261 SetFont [ Module Screen 1 

194 SetHeap [ Module Memory 1 

194 Set Increment ( Module Memory 1 

195 SetKind [ Module Memory 1 
194 SetMaximum [ Module Memory ] 
193 SetMobility [ Module Memory ] 
248 SetRS232Port [ Module RS232Baud 1 

20 SetTStamp [ Module Clock ) 

20 SetTString [ Module Clock 1 

260 SFullWindow [ Module Screen 1 

288 ShowProgress [ Module UtilProgress 1 
266 Sid [ Module Sid ] 

266 SidDevice [ Module Sid ] 

266 SidExplain [ Module Sid 1 

264 SidFail [ Module Sid 1 

244 Sin ( Module RealFunctions 1 

246 SinH I Module RealFunctions 1 

241 SinHLarge [ Module RealFunctions 1 

239 SinLarge I Module RealFunctions 1 

273 SmallReal [ Module Stream ] 

18 SortSegList [ Module BigArea 1 

151 Spc Interrupt I Module lORS 1 

259 SPutChr [ Module Screen 1 

241 Sqrt I Module RealFunctions 1 

237 SqrtNeg [ Module RealFunctions 1 

118 SrchErr [ Module FileUti Is 1 

118 SrchWarn [ Module FileUti Is 1 

257 SReadCursor [ Module Screen 1 

257 SSetCursor [ Module Screen 1 

258 SSetSize I Module Screen 1 

20 StampToString [ Module Clock 1 
256 StartLine ( Module Screen ] 

278 St art Transcript [ Module Stream 1 
30 StdError [ Module CmdParse 1 

98 SILATETooDeep [ Module Except 1 

279 StopTranscript I Module Stream 1 
203 StrBadParm [ Module PERQ_String ] 
275 StrearaClose t Module Stream 1 
275 Streamlnit [ Module Stream 1 

277 StreamKeyBoardReset [ Module Stream ] 

278 StreamName [ Module Stream 1 
275 StreamOpen [ Module Stream 1 

289 StreamProgress [ Module UtilProgress 1 
98 Strlndx [ Module Except 1 

225 StringSort t Module Quicksort 1 

21 StringToStamp I Module Clock 1 
98 StrLong [ Module Except 1 
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204 SubStr [ Module PERQ_String 1 

262 SVarLine I Module Screen 1 

190 SvapError [ Module Memory 1 

292 Svapin [ Module Virtual I 

189 SwapInFailure [ Module Memory 1 

292 SwapOut [ Module Virtual 1 

294 SwapSegmentsIn I Module Virtual 1 

284 SysVers C Program System 1 

244 Tan [ Module. Real Functions ] 

247 TanH [ Module RealFunctions ] 

240 TanLarge [ Module RealFunctions 3 

183 TekLoad [ Module LoadZ80 1 

271 TimeOutError I Module Stream 1 
256 ToggleCursor [ Module Screen 1 
279 TransChar [ Module Stream 1 
275 TransError [ Module Stream 1 

102 TruncateSpiceSegment [ Module FileAccess ] 

47 TruncLong [ Module Convert 1 

303 TryVolIO [ Module VolumeSystem 1 
98 UndeReal [ Module Except ] 

272 UndfDevice I Module Stream 1 
98 Undfint [ Module Except 1 

98 UndfQcd [ Module Except 1 

98 UnlmplQCodes [ Module Except 1 

30 UniqueCmd Index [ Module CmdParse 1 

179 UnitIO [ Module 10 Unit 1 

271 UnitlOError [ Module Stream J 

187 UnusedSegment [ Module Memory 1 

208 Upper [ Module PERQ String 1 

206 Uppercase [ Module PERQ String 1 

232 UseBuffer [ Module Reacffiisk 1 

286 ValidUsere [ Module UserPass 1 

298 VBNOutOfRange [ Module VolumeSystem 1 

152 Vid Initialize [ Module lOVideo J 

153 Vid'interrupt [ Module lOVideo 1 
153 Vid"SetUpUDevTab [ Module lOVideo 1 

299 VMountErr [ Module VolumeSystem 1 
299 VolDiskError [ Module VolumeSystem 1 

305 VolDiskReset [ Module VolumeSystem 1 

304 VolDisMount I Module VolumeSystem 1 

298 VolErrInc [ Module VolumeSystem ] 

299 VolIDLookUp I Module VolumeSystem ) 

301 VolIDToPhylD I Module VolumeSystem 1 

303 Vol 10 [ Module VolumeSystem 1 

299 Vol lOFai lure I Module VolumeSystem 1 

304 VolMount [ Module VolumeSystem ] 

300 VolNameLookUp I Module VolumeSystem 1 

302 VolNumberPages [ Module VolumeSystem 1 
300 VolToOnVolAddr I Module VolumeSystem 1 
256 WBadSize) [ Module Screen 1 

44 WCSSizeError [ Module ControlStore 1 

8 WhichPartition I Module AllocDisk 1 

306 WriteBoolean [ Module Writer ] 

306 WriteCh [ Module Writer 1 

307 WriteChArray [ Module Writer ] 
198 WriteD [ Module PasLong J 
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230 WriteDisk [ Module ReadDisk 1 

230 WriteHeader [ Module ReadDisk 1 

307 Writeldentifier I Module Writer J 

307 Writelnteger I Module Writer 1 

202 WriteR [ Module PasReal ] 

252 WriteRunFile [ Module RunWrite 1 

103 WriteSpiceSegroent I Module FileAccess 1 

307 WriteString [ Module Writer 1 

308 WriteX [ Module Writer 1 
256 WTooBig I Module Screen ] 

98 XSegmentFault [ Module Except 1 

98 XStackOverflow [ Module Except 1 

154 Z80_Initialize [ Module IOZ80 1 

154 Z80_Interrupt I Module IOZ80 1 

154 Z80 UnitIO ( Module IOZ80 1 

169 Z Critical Sect ion [ Module 10 Private 1 

169 Z"DqSysMsg I Module I0_Private 1 

169 Z"QSysMsg [ Module 10 Private 1 

168 Z"SendMsg [ Module 10 Private 1 
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Name: 


Attribute: 


Location: 


AlignedBuffer 


T^PE 


[ Module AlignMemory 1 


AlignedPo inter 


nPE 


[ Module AlignMemory ] 


ArgRec 


nPE 


[ Module CffldParse ] 


Attention 


VAR 


[ Module IO_Private 1 


BadFile 


CONST 


I Module FiTeTypes 1 


BigStr 


T^PE 


[ Module IO_Unit 1 


BinaryFile 


CONST 


[ Module FiTeTypes 1 


BinFile 


CONST 


[ Module FileTypes 1 


BitPadTimeOut 


TTPEP 


[ Module IO_Others 1 


BitSize: integer; CharFii 


e VAR 


[ Module Stream ] 


BlamCh 


CONST 


[ Module lOKeyboard ] 


BlklnFile 


VAR 


[ Module FileSystem 1 


BlkNumbers 


T^PE 


[ Module FileSystem 1 


BlksInFile 


VAR 


[ Module FileUtils ] 


BlksPerFile 


CONST 


[ Module FileSystem ] 


block 


VAR 


[ Module DisklO ] 


BlockAddress 


VAR 


[ Module Virtual 1 


BlockHeader 


VAR 


: Module Virtual ] 


Bl ocksForLandscapeScreen 


CONST 


: Module Memory 1 


Bl ocksForPort ra i t Screen 


CONST 


: Module Memory ] 


BlockSId 


VAR 


; Module Virtual 1 


Blocks InHalfMeg 


CONST 


: Module Memory ] 


Blocks I nMeg 


coNsrr 


Module Memory 1 


Bl ocks I nQuarterMeg 


CONST 


Module Memory 1 


BootedMemoryl nBl ocks 


CONST 1 


Module Memory ] 


BootFileld 


VAR 1 


Module Memory 1 


BootLength 


CONST 1 


[ Module File^stem 1 


BootSegId 


VAR 1 


[ Module Virtual ] 


BootSerialNum 


VAR 1 


Module Virtual 1 


BotComplemented 


VAR 1 


Module lOVideo ] 


BotCursF 


VAR 1 


Module lOVideo ] 


BrkChar 


VAR I 


Module CmdParse 1 


BrkChar 


VAR 1 


Module CmdParse 1 


BufPtr 


VAR 1 


Module DiskDef 1 


ByteCnt 


VAR I 


Module lOGPIB 1 


BytelntRecord 


T^PE I 


Module FlPUtils 1 


ByteType 


CONST I 


Module FlPUtils 1 


cardinal 


T^PE [ 


Module VolumeSystem ] 


CBufPtr 


nPE I 


Module 10 Unit 1 


CBufr 


T^PE I 


Module lOlUnit 1 


CCR 


CONST [ 


Module CmdParse ] 


CCursMode 


VAR I 


Module lOVideo ] 


Cf BootChar 


VAR [ 


Module Configuration ] 


Cf BootUnit 


VAR t 


Module Configuration ] 


Cf Float ingHardware 


VAR [ 


Module Configuration 1 


Cf lOBoard 


VAR [ 


Module Configuration ] 


Cf lOBoardType 


T^PE [ 


Module Configuration 1 


Cf KeyboardStyle 


VAR [ 


Module Configuration ] 


Cf_KeyPad 


VAR [ 


Module Configuration 1 


Cf_Monitor 


VAR t 


Module Configuration 1 
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Gf MonitorType 


TYPE 1 


Module Configuration 1 




Cf"RS232MaxSpeed 


VAR 1 


Module Configuration 1 




Cf RS232Ports 


VAR 1 


Module Configuration 1 




crwCSSize 


VAR 1 


. Module Configuration ] 




ChirFile 


VAR 1 


Module Stream ] 




ChArray 


TYPE 1 


Module Stream 1 




CImpInfo 


TYPE 1 


Module Code 1 




CirBufltem 


TYPE 1 


Module 10 Private 1 




CirBufPtr 


TYPE 1 


[ Module 10 Private 1 




CirBufSize 


CONST 1 


[ Module 10 Private 1 




CircularBuffer 


TYPE 1 


[ Module 10 Private 1 




Clock 


CONST 1 


[ Module I0~Unit 1 




ClockStat 


T^PE 1 


[ Module 10 Unit 1 




ClockVersion 


CONST 1 


Module Clock ] 




CrodArray 


nPE 1 


Module CmdParse 1 




CmdChar 


CONST 1 


Module CmdParse 1 




CmdFileChar 


CONST 1 


Module CmdParse 1 




CmdListRec 


TYPE 1 


Module CmdParse 1 




CmdPVersion 


CONST 1 


Module CmdParse ] 




CmdSegment 


VAR 1 


[ Program System 1 




CodeVersion 


CONST 1 


[ Module Code ] 




ComFile 


CONST 1 


Module FileTypes 1 




CommentLen 


CONST 1 


Module Code ] 




Complex 


TYPE 


Module ComplexFunctions 


] 


ControlChar 


T^PE 1 


[ Module Stream 1 




CString 


TJTPE 1 


[ Module CmdParse 1 




CtrlC 


CONST 1 


Module lOKeyboard ] 




CtrlCPending 


VAR 1 


Program System 1 




CtrlQ 


CONST 1 


Module lOKeyboard 1 




CtrlS 


CONSl 1 


Module lOKeyboard 1 




CurGroupID 


VAR 1 


Program System 1 




CurPatPtr 


T^PE 1 


Module lO^Others 1 




CurPFile 


VAR 1 


Program Siystem 1 




CurRFileName 


VAR 1 


Program System 1 




CursF 


VAR 


[ Module lOVideo 1 




CursFunction 


TYPE 


[ Module 10 Others 1 




CursMode 


nPE 


[ Module 10 Others 1 




Cursor 


VAR 


[ Module lOVideo ] 




CursorFile 


CONST 


Module FileTypes 1 




CursorPattern 


TYPE 


Module lO.Others 1 




CursorSeg 


CONST 


[ Module Memory 1 




CursorX 


VAR 


[ Module lOVideo 1 




CursorY 


VAR 


[ Module lOVideo 1 




CursType 


TYPE 


Module PopUpCurs 1 




CurUserlD 


VAR 


; Program System 1 




CurUserName 


VAR 


; Program System 1 




CurWind 


VAR 


; Module Screen 1 




CurWindp 


VAR 


Module Screen 1 




Cyl 


TYPE 


[ Module DiskDef 1 




Cyl i nder-Head-Sector 


VAR 


[ Module DisklO 1 




DataA vail able 


VAR 


Module IO_Private 1 




DatFile 


CONSl 


: Module FileTypes 1 




DirFile 


CONST 


: Module FileTypes 1 




DBLINDSIZE 


CONST 


[ Module DisklO 1 




DRT.7ER0 


CONST 


[ Module FileDefs 1 




DBpKl 


CONST 


[ Module DiskDef 1 
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DCBStatus 


TYPED 


[ Module DiskDef 1 


DCBStack 


VAR 


[ Module Etherlnterrupt 1 


DDS 


VAR 


[ Program System 1 


Debug^stemlnit 


CX)NST 


[ Program ^stem ] 


DefaultCursor 


VAR 


[ Module 10 Others 1 


DefaultDeviceName 


VAR 


[ Module FiTeDir 1 


Def aul tPart i t i onName 


VAR 


[ Module FileDir ] 


DefCursFunct 


VAR 


[ Program System 1 


DefHeapSize 


CONST 


[ Module Code 1 


DeflncHeap 


CONST 


[ Module Code ] 


DeflncStack 


CONST 


[ Module Code 1 


DefRealRelTablet 


VAR 


[ Program System 1 


DefScrComp 


VAR 


[ Program System 1 


DefScrOff 


VAR 


[ Program System 1 


DefStackSize 


CONST 


[ Module Code ] 


DefTabletType 


VAR 


I Program System 1 


Demolnt 


VAR 


[ Program System 1 


DeviceRecord 


T^PE 


[ Module AUocDisk ] 


DeviceType 


T^PE 


[ Module DisklO ] 


DevStatusBlock 


nPE 


[ Module 10 Unit 1 


DevTblEntry 


nPE 


[ Module 10 Private 1 


DevTypes 


T^PE 


[ Module FTPUtils 1 


Dev__AckReceived 


coNsrr 


[ Module 10 Private 1 


Dev~Attention 


CONST 


: Module 10 Private 1 


Dev^DataAvailable 


CONST 


: Module lO.Private 1 


Dev_Micropolis 


CONST 


: Module 10 Private 1 


Dev]^NakReceived 


CONST 


[ Module IO~Private 1 


Dev"ScreenUpdate 


CONST 


[ Module 10 Private 1 


Dev Shugart 


CONST 


[ Module 10 Private 1 


DevISMD 


CONST 


[ Module 10 Private 1 


Dev_StatReceived 


CONST 


[ Module 10 Private ] 


Dev Unused 


CONST 


[ Module 10 Private 1 


DIBAddress 


CONST 


[ Module DiskDef 1 


DIBlock 


nPE 1 


[ Module DiskDef 1 


DirBlk 


T^PE 1 


[ Module FileSystem 1 


DIRECTSIZE 


CONST 1 


[ Module DisklO ] 


DirEntry 


nPE 1 


[ Module DisklO 1 


DiskAddr 


TYPE 1 


[ Module FileDefs 1 


DISKBITS 


CONST 1 


[ Module DisklO 1 


DiskBuffer 


Ti?E 1 


[ Module DisklO 1 


DISKBIFSIZE 


CONST 1 


Module FileDefs ] 


DiskCheatType 


TYPE 1 


Module DisklO 1 


DiskCommand 


TYPE 1 


Module DisklO ] 


DiskCtrlBlock 


TYPE 1 


Module DiskDef 1 


DiskKinds 


TYPE I 


Module VolumeSystem 1 


DiskSegment 


VAR 1 


Module DisklO 1 


Di sklabie 


VAR 1 


Module AUocDisk ] 


Di skType 


TYPE I 


Module DiskDef ] 


Double 


TYPE I 


Module SystemDefs ] 


DoubleWord 


TYPE 1 


Program System 1 


DskBlockSize 


CONST I 


Module DiskDef ] 


DskCmds 


TYPE [ 


Module DiskDef 1 


DskCtrl Array 


TYPE I 


Module DiskDef 1 


DskCyls 


CONSl I 


Module DiskDef 1 


DskExHds 


CONS'l I 


Module DiskDef ] 


DskHds 


CONST [ 


Module DiskDef 1 
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DskResult 

DskSPC 

DStatus 

DumpCh 

e 

EBoardIO 

EBoardOpt i on 

EIODisk 

EIODskCtrlBlock 

EIOFlag 

EP Ethernet 

EPiGetChar 

EP GetCircBuffer 

EPiHardDisk 

EP lOStart 

EP PutCircBuffer 

EPiReadCause 

EP ReadTimer 

EP'SetEnableMask 

EPiUcodeMsg 

EP ZSOMsg 

EriFCtlC 

ErrCtlCAbort 

Er-rCtlShftC 

ErrEx it Program 

ErrHelpKey 

ErrorCnt 

ErrorType 

ErrStatus 

Ether 10 

Ether lOMBaud 

Ether3 

Ether3MBaud 

EtherAddress 

EtherAdRec 

EtherBuffer 

EtherCoromand 

EtherDCB 

EtherHeader 

EtherRegSave 

EtherStatus 

ExceptVersion 

ExcSeg 

ExDirFile 

ExecuteTime 

ExtFile 

ExtUnitNumber 

FastEType 

FFS 

FHeadPtr 

FHpS 

FIBlk 

FIdS 

Field 

file system volume 

FilelD 
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1984 


TYPE . 


[ Module 10 Unit ] 




CONST 


[ Module DiskDef 1 




nPE 


[ Module DiskDef 1 




CONST 


: Module lOKeyboard ] 




VAR 


[ Module PasReal 1 




CONST 


[ Module EtherlOIO 1 




CONST 


[ Module EtherlOIO 1 




CONST 


[ Module 10 Unit 1 




TYPE 


[ Module DiskDef 1 




VAR 


[ Module DiskDef 1 




CONST 


[ Module 10 Private 1 




CONST 


[ Module 10 Private 1 




CONST 


[ Module 10 Private 1 




CONST 


[ Module 10 Private 1 




CONST 


[ Module 10 Private 1 




CONST 


[ Module IO"Private 1 




CONST 


[ Module 10 Private 1 




CONST 


[ Module 10 Private 1 




CONST 


[ Module 10 Private 1 




CONST 


[ Module 10 Private 1 




CONST 


Module lO.Private 1 




CONST 


Program System 1 




CONST 


Program System 1 




CONST 


Program System 1 




CONST 1 


Program ^stem 1 




CONST 1 


[ Program System 1 




VAR 1 


[ Module DisklO 1 




TYPE 1 


[ Module CmdParse 1 




TYPE 1 


[ Module FTPUtils J 




CONST 1 


[ Module 10 Unit ] 




CONST 1 


[ Module SystemDefs 1 




CONST 1 


Module 10 Unit ] 




CONST 1 


[ Module SystemDefs 1 




TYPE 1 


Module EtherlOIO 1 




TYPE 1 


Module EtherlOIO 1 




TYPE 1 


Module EtherlOIO 1 




TYPE 1 


Module EtherlOIO 1 




TYPE 1 


Module EtherlOIO 1 




TYPE 1 


Module EtherlOIO 1 




TYPE 1 


Module EtherlOIO ) 




TYPE 1 


Module EtherlOIO 1 




CONST 1 


Module Except 1 




VAR 1 


Module Except 1 




CONST 1 


Module FileTypes 1 




VAR 1 


Program System 1 




CONST 1 


Module FileTypes 1 




TYPE 1 


Module VolumeSystem 1 




CONST 1 


Module FTPUtils 1 




CONST 1 


Module DiskDef J 




VAR 1 


Module DiskDef 1 




CONST 1 


Module DiskDef 1 




CONST 1 


Module FileSystem 1 




CONST 1 


Module DiskDef 1 




VAR I 


Module Writer 1 




CONST I 


Module VolumeSystem 1 




TYPE I 


Module FileSystem 1 





- 323 - 



POS Operating System 


- Exported Types 


, Var., £ Constants January 


IS, 


FilelD; 


VAR 


[ Module FileSystem ] 




FilelD; 


VAR 


[ Module FileSystem 1 




FileKind 


TYPE 


[ Module Stream 1 




FileLength 


CONST 


[ Module Code 1 




FileName 


VAR 


[ Module FileUtils ] 




FILESPERDIRBLK 


CONST 


[ Module DisklO 1 




FileType 


T^PE 


[ Module Stream 1 




FillerSemantics 


TYPE 


[ Module DisklO 1 




FirstBlk 


CONST 


[ Module FileSystem 1 




FirstDB 


CONST 


[ Module DiskDef 1 




FirstDDS 


CONST 


I Program System 1 




FirstFC 


CONST 


[ Module DiskDef 1 




FirstSeg 


CONST 


[ Module RunWrite 1 




FirstSeg 


VAR 


[ Module RunRead ] 




FirstSystemSeg 


VAR 


[ Module Memory 1 




FirstUserSeg 


CONST 


[ Module RunWrite ] 




FirstUserSeg 


VAR 


[ Module RunRead 1 




FirstUserSeg 


VAR 


[ Module RunRead 1 




FirstWindp 


VAR 


[ Module Screen ] 




ROPBITS 


CONST 


[ Module DisklO 1 




FlopHdArray 


TYPE 


[ Module DiskDef 1 




FlopHeadPtr 


TYPE 


[ Module DiskDef ] 




Floppy 


CONST 


[ Module 10 Unit 1 




FLOPPYNUMBER 


CONST 


[ Module DisklO 1 




FlpUn it Number 


TiVE 


: Module VolumeSystem 1 




FNString 


Ti^PE 


[ Module Code 1 




Font 


Ti'PE 


'. Module Screen 1 




FontFile 


CONST 


: Module FileTypes 1 




FontPtr 


TYPE 


Module Screen ] 




FontSeg 


CONST 1 


Module Memory 1 




FootAr 


TYPE 1 


Module PopUpCurs 1 




footW 


VAR 1 


Module PopUpCurs 1 




ForFile 


CONST 1 


Module FileTypes 1 




format 


VAR 1 


Module PasReal ] 




FracDigits 


VAR 1 


[ Module PasReal 1 




FSBitie 


TYPE 1 


[ Module FileDefs 1 




FSB it 32 


T^PE 1 


Module FileDefs 1 




FSBit8 


T^PE 1 


Module FileDefs 1 




FSDataEntry 


TYPE 1 


Module FileDefs 1 




FSDebug 


CONST 1 


Module FileSystem 1 




FSDirPrefix 


VAR 1 


Module FileSystem 1 




FSOpenType 


TYPE 1 


Module FileDefs ] 




FSpDB 


CONST I 


Module DiskDef 1 




FSpT 


CONST I 


Module DiskDef 1 




FSSysSearchList 


VAR I 


Module FileSystem 1 




FSVersion 


CONST ( 


Module FileSystem 1 




FTPPacket 


TYPE I 


Module FTPUtils ] 




FudgeStack 


CONST I 


Module Code 1 




GetTSVersion 


CONST { 


Module GetTimeStamp ] 




gpacg 


CONST [ 


Module gpib 1 




gJDAux i 1 i aryCommands 


TJTPE [ 


Module gpib 1 




gpBuffer 


TYPE [ 


Module gpib 1 




gpBufMax 


CONST [ 


Module gpib 1 




gpBufPtr 


VAR [ 


Module gpib ] 




gpBufSize 


CONST [ 


Module gpib ] 




gpByte 


T^PE [ 


Module gpib 1 
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gpCommandBuffer 
gpCommandBuffer 
gpdcl 
gpDeviceAddress 

gpget 

gpgtl 

gpHaveAux i 1 i aryCommands 

gpHaveDataBytes 

GPIBIntMask 

GP I BpadConnected 

GPIBStat 

GPIBTabBuf 

GPIBTabletState 

GpibVersion 

GPIBxFudge 

GPIByFudge 

gplag 

gpllo 

gpinla 

gpmsa 

gpmta 

gpParmType 

gppBuffer 

gpppc 

gpppd 

gPPPe 
gpppu 

gpRange 

gpscg 

gpsdc 

gpspd 

gpspe 

gptag 

gptct 

gpuag 

gpunl 

gpunt 

HardDisk 

HARDNUMBER 

HdPtr 

HdPtr 

HdrPtr 

Header 

Header 

HisAddr 

HisName 

HiVolBlock 

Identifier 

IdentLength 

I dent Table 

IDType 

IfflpNode 

in 

IncludeFile 

InCmdFile 

indep 
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VAR 1 


Module gpib 1 


VAR 1 


Module gpib 1 


CONST 1 


Module gpib ) 


lyPE 1 


Module gpib 1 


CONST 1 


Module gpib 1 


CONST 1 


Module gpib ] 


VAR 1 


Module gpib 1 


VAR 1 


Module gpib 1 


VAR 1 


Module lOGPIB 1 


TfPEP 1 


Moidule 10 Others 1 


T^PE 1 


Module IO"Unit 1 


VAR 1 


Module lOGPIB 1 


VAR 1 


Module lOGPIB 1 


CONST 1 


Module gpib 1 


CONST 1 


Module lOGPIB 1 


CONST 1 


[ Module lOGPIB ] 


CONST 1 


[ Module gpib ] 


CONST 1 


[ Module gpib ] 


CONST 1 


[ Module gpib ] 


CONST 1 


[ Module gpib ] 


CONST 1 


Module gpib 1 


T^PE 1 


Module gpib ] 


T^PE 1 


Module gpib ] 


CONST 1 


Module gpib ] 


CONST 1 


Module gpib ] 


CONST 1 


Module gpib ] 


CONST 1 


Module gpib 1 


T^PE 1 


Module gpib 1 


CONST 1 


Module gpib 1 


CONST 1 


Module gpib ] 


CONST 


Module gpib 1 


CONST 


Module gpib ] 


CONST 


Module gpib ] 


CONST 


Module gpib 1 


CONST 


: Module gpib ] 


CONST 


: Module gpib 1 


CONST 


[ Module gpib ] 


CONST 


[ Module 10 Unit 1 


CONST 


[ Module DisklO ] 




[ Module lODisk 1 


VAR 


[ Module 10 Unit ] 


VAR 


[ Module DiskDef 1 


VAR 


[ Module RunRead ] 


T^PE 


[ Module DisklO ] 


VAR 


[ Module FTPUtils 1 


VAR 


I Module FTPUtils ] 


T^PE 


[ Module lO^Private 1 


T^PE 


: Module Stream ] 


CONST 


: Module Stream 1 


nPE 


: Module Stream ) 


T^PE 


[ Module UserPass 1 


T^PE 


[ Module Code 1 


VARW 


[ Module Screen ] 


CONST 


[ Module FileTypes 1 


VAR 


[ Program System 1 


T^PEP 


[ Module 10 Others 1 



1984 
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INDSIZE 


CONST 


[ Module DisklO 1 


Initialized 


VAR 


[ Module DiskDef 1 


InPmd 


VAR 


[ PrograiD System 1 


I nt Array 


lYPE 


[ Module Quicksort ] 


IntDiskKinds 


TYPE 


( Module VolumeSystem ] 


IntDiskType 


VAR 


[ Module DiskDef ] 


IntType 


VAR 


[ Module 


IO_Unit 1 


IntUnitNumber 


nPE 


[ Module ^ 


l^oTumeSystem 1 


1024MByte 


VAR 


[ Module 


10 Unit 1 


lOBuffer 


nPE 


[ Module 


IO~Unit 1 


lOBufPtr 


TYPE 


[ Module 


IO"Unit 1 


lOCommands 


TYPE 


[ Module 


lOlUnit ] 


lOEABN 


CONST 


[ Module 


[OErrors 1 


lOEADR 


CONST 


[ Module 


[OErrors 1 


lOEBAE 


CONST 


[ Module 


[OErrors 1 


lOEBSE 


CONSi 


[ Module 


[OErrors 1 


lOEBUN 


CONST 


[ Module 


[OErrors 1 


lOECBF 


CONST 


[ Module 


[OErrors J 


lOECDI 


CONST 


[ Module 


[OErrors 1 


lOECMM 


CONST 


[ Module 


[OErrors 1 


lOECOR 


CONST 


[ Module 


[OErrors 1 


lOEDAC 


CONST 


[ Module 


[OErrors 1 


lOEDNI 


CONST 


[ Module 


[OErrors 1 


lOEDNR 


CONST 


[ Module 


[OErrors 1 


lOEDNW 


CONST 


[ Module 


[OErrors 1 


lOEDRS 


CONST 


[ Module ] 


[OErrors 1 


lOEFirstError 


CONST 


[ Module ] 


[OErrors 1 


lOEFirstError 


CONST 


[ Module ] 


[OErrors 1 


lOEFLT 


CONST 1 


[ Module ] 


[OErrors 1 


lOEFRS 


CONST 1 


[ Module ] 


[OErrors 1 


lOEILC 


CONST 1 


[ Module ] 


[OErrors 1 


lOEIOB 


CONST 1 


[ Module ] 


OErrors 1 


lOEIOC 


CONST 1 


[ Module ] 


OErrors 1 


lOELastError 


CONST 1 


Module ] 


OErrors 1 


lOELHB 


CONST 1 


Module : 


[OErrors 1 


lOELHC 


CONST 1 


Module : 


OErrors 1 


lOELHE 


CONST 1 


Module ] 


OErrors 1 


lOELHS 


CONST 1 


Module ] 


OErrors 1 


lOEMDA 


CONST 1 


Module ] 


OErrors 1 


lOEMHA 


CONST 1 


Module ] 


OErrors 1 


lOENBD 


CONST 1 


Module ] 


OErrors ] 


lOENCD 


CONST 1 


Module ] 


OErrors 1 


lOENfHP 


CONST I 


Module ] 


OErrors ] 


lOENOC 


CONST I 


Module '. 


OErrors 1 


lOEOVR 


CONST I 


Module ] 


OErrors 1 


lOEPHC 


CONST I 


Module ] 


OErrors 1 


lOEPTL 


CONST I 


Module ] 


OErrors 1 


lOERDI 


CONST I 


Module ] 


OErrors 1 


lOESKE 


CONST [ 


Module ] 


OErrors 1 


lOESME 


CONST [ 


Module ] 


OErrors 1 


lOESNF 


CONST [ 


Module ] 


OErrors 1 


I0E90R 


CONST [ 


Module ] 


OErrors ] 


lOETO 


CONST [ 


Module ] 


OErrors 1 


lOETIM 


CONST t 


Module ] 


OErrors 1 


lOEUDE 


CONST I 


Module ] 


OErrors 1 


lOEUEF 


CONST [ 


Module ] 


OErrors ] 
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lOEWRF 

lOHeader 

lOHeadPtr 

lOInProgress 

lOIntrTypes 

lOPtrKludge 

lOSeg 

lOSegNum 

lOSegSize 

lOSegSize 

lOSegSize 

lOStart 

lOStatPtr 

lOStatus 

lOTime 

IO_KeyStat 

isFloppy 

Keepl 

Keep2 

Keep3 

Keep4 

Keyboard 

KeyBuffer 

KeyEnabled 

KeyLength 

KeyNext 

Kludge 

Krizlnfo 

Kr i zTabConnected 

KrizTablet 

KrizXFudge 

KrizYfudge 

KSetSLen 

KTBuf 

LandscapeBitHeight 

LandscapeBitWidth 

Lands capeWordWi dth 

Language 

LastBlk 

LastFileNaroe 

LastSeg 

LastUnit 

LibFile 

LightCompiler 

LightHeight 

LightRecalibrate 

LightScavenge 

Light Spacing 

Light Swap 

LightUsed 

LightWidth 

LightY 

line 

LineStyle 

LoaderVersion 

Loadlime 



>rted Types, 


Var.» & Constants January 


16 


CONST [ 


Module lOErrors 1 




TYPE I 


Module 10 Unit ] 




nvE { 


Module lO'Unit ] 




VAR I 


Module IO"Unit 1 




nPE 1 


Module lO'Unit 1 




TYPE I 


Module IO_Private 1 




CONST I 


Module Memory 1 




VAR I 


Module lO^Private 1 




CONST . 1 


Module Memory ] 




CONST 1 


Module Memory 1 




CONST 1 


Module Memory ] 




CONST 1 


Module 10 Unit 1 




nPE I 


Module lO'Unit 1 




T^PE 1 


Module lOlUnit 1 




VAR 1 


Program System 1 




nPE 1 


Module lO.Unit J 




VAR 1 


Program Siystem 1 




VAR 1 


Module Virtual ] 




VAR 1 


L Module Virtual 1 




VAR 1 


[ Module Virtual 1 




VAR 1 


[ Module Virtual 1 




CONST 1 


[ Module lO.Unit 1 




VAR 1 


[ Module Stream 1 




VAR 1 


[ Module lO.Private 1 




VAR 1 


Module Stream ] 




VAR 1 


Module Stream 1 




VAR 1 


[ Module Virtual 1 




VAR 1 


[ Module lOPointDev 1 




Ti?E? 1 


[ Module 10 Others ) 




VAR 1 


[ Module 10 Others 3 




CONST 1 


[ Module lOPointDev 1 




CONST 


[ Module lOPointDev 1 




CONST 


Module Screen 1 




VAR 


Module lOKeyboard 1 




CONST 


; Module Screen 1 




CONST 


; Module Screen 1 




CONST 


; Module Screen 1 




TfPE 


[ Module Code 1 




CONST 


[ Module FileSystem 1 




VAR 


: Program System 1 




VAR 


[ Module RunRead 1 




CONST 


I Module 10 Unit 1 




CONST 


I Module FiTeTypes 1 




CONST 


; Module Lights 1 




CONST 


; Module Lights 1 




CONST 


; Module Lights 1 




CONST 


[ Module Lights ] 




CONST 


[ Module Lights 1 




CONST 


[ Module Lights 1 




CONST 


[ Module Lights 1 




CONST 


[ Module Lights ] 




CONST 


[ Module Lights 1 




VAR 


[ Module PopCmdParse 1 




TYPE 


[ Module Screen ) 




CONSl 


[ Module Loader 1 




VAR 


[ Program System 1 
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LogAdr 


VAR 


[ Module lOGPIB 1 


LogAdr 




[ Module I0Z80 1 


LogAdr 


VAR 


[ Module lO.Unit 1 


LogConst 


CX)NSr 


[ Program System 1 


LS 


TYPE 


[ Module Screen 1 


Ma inversion 


CONST 


[ Program System 1 


MAXALIAS 


CONST 


[ Module FlPUtils 1 


MaxCmds 


CONST 


[ Module CmdParse 1 


MaxCString 


CONST 


[ Module CmdParse 1 . 


MaxDataBytes 


CONST 


[ Module EtherlOIO 1 


MAXDI9CS 


CONST 


I Module AUocDisk 1 


MAXPARTCHARS 


CONST 


[ Module AUocDisk 1 


MAXPARTITIONS 


CONST 


[ Module 


AUocDisk ] 


MaxPStringSize 


CONST 


I Module PERQ String 1 


MaxRecv 


CONST 


[ Module FlPUtils 1 


Max Segment 


CONST 


[ Module Memory ] 


MaxTotalVols 


CONST 


[ Module 


VolumeSystem 1 


MaxUnit 


CONST 


[ Module 


10 Unit 1 


MaxUsers 


CONST 


: Module UserPass 1 


MaxVolID 


CONST 


: Module VolumeSystem ] 


MaxWIndx 


CONST 


'. Module Screen 1 


MaxWIndx 


CONST 


'. Module Screen ] 


MBootFile 


CONST 


: Module FileTypes 1 


MemorylnBloclcs 


VAR 


: Module 


Memory 1 


MemoryVersion 


CONST 


: Module 


Memory 1 


MicroBinary 


TYPE 


: Module Control Store 1 


MicroFile 


CONST 


Module FileTypes ] 


MicroFile 


TYPE 


Module Control Store 1 


Microinstruction 


TYPE 


Module ControlStore 1 


MinDataBytes 


CONST 1 


[ Module EtherlOIO 1 


MinVolID 


CONST 1 


[ Module 


VolumeSystem 1 


MltCstAddr 


CONST 1 


[ Module EtherlOIO 1 


MltCstAU 


CONST 1 


[ Module EtherlOIO 1 


MltCstGrp 


CONST 1 


[ Module EtherlOIO 1 


MltCstNone 


CONST 1 


[ Module EtherlOIO 1 


MMAddress 


TYPE 1 


Module 


Memory 1 


MMArray 


TYPE 1 


Module 


Memory 1 


MMBitl2 


TYPE 1 


Module 


Memory 1 


MMBlt4 


TYPE 1 


Module 


Memory 1 


MMBitS 


TYPE 1 


Module 


Memory 1 


MMBlockArray 


TYPE 1 


Module 


Memory 1 


MMEdge 


TYPE 1 


Module 


Memory 1 


MMExtSize 


TYPE 1 


Module 


Memory ] 


MMFirst 


VAR I 


Module 


Memory 1 


MMFound); 


VAR 1 


Module 


Memory 1 


MMFree 


VAR 1 


Module 


Memory 1 


MMFreeNode 


TYPE I 


Module 


Memory 1 


MMHeap 


VAR I 


Module 


Memory ] 


MMHole 


VAR 1 


Module 


Memory 1 


MMIntSize 


TYPE 1 


Module 


Memory 1 


MMLast 


VAR I 


Module 


Memory 1 


MMMaxBlocks 


CONST I 


Module 


Memory 1 


MMMaxCount 


CONST [ 


Module 


Memory 1 


MMMaxExtSize 


CONSl I 


Module 


Memory 1 


MMMaxIntSize 


CONSl I 


Module 


Memory 1 


MMNotFound 


VAR [ 


Module 


Memory 1 
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MMPo inter 

MMPosition 

MMScanlO 

MMScanll 

MMScan6 

MMScan? 

MMScanS 

MMScan9 

MMState 

MoveTirae 

MyAddr 

MyDble 

MyDouble 

MyName 

NameAr 

NameDesc 

newFunct 

Next SComp 1 ement ed 

NextSOff 

NextSSize 

Nil Vol ID 

NumAl i as 

number 

NumDCBs 

NumDCBUsed 

NUMTRIES 

OffsetFiie 

ointDev 

OldCurX 

OldCurY 

OldExecuteTime 

OidlOTime 

OldLoadTiroe 

OldMoveTime 

OldSwapTime 

OnVolAddress 

OpenWrite 

Origin 

OrgX 

OrgY 

pArgRec 

Partial Pat hName 

PartitionType 

PartRecord 

Part String 

PartTable 

PasFile 

PassFile 

PassType 

Past 

PastStamp 

PathName 

pClockStat 

pCffldList 

PDIBlock 

PDirBlk 



TYPE 1 


Module Memory 1 


T^PE I 


Module Memory 1 


VAR 1 


Module Memory 1 


VAR 1 


Module Memory ] 


VAR 1 


Module Memory 1 


VAR 1 


Module Memory 1 


VAR 1 


Module Memory ) 


VAR 1 


Module Memory 1 


VAR 1 


Module Memory 1 


VAR 1 


Program System 1 


VAR 1 


Module FlPUtils ] 


TYPE 1 


. Module DisklO ] 


nPE 1 


Module Arith ] 


VAR 1 


[ Module FTPUtils 1 


TiTPE 1 


[ Module PopUp ] 


T^PE 1 


[ Module PopUp 1 


VAR 1 


[ Module lOVideo ] 


VAR 1 


Program System 1 


VAR 1 


[ Program System 1 


VAR 1 


Program ^stem 1 


CONST 1 


[ Module Vol umeSys tern ] 


VAR 1 


[ Module FlPUtils 1 


VAR 1 


[ Module DisklO ] 


CONST 


[ Module EtherlOIO 1 


VAR 


[ Module DiskDef ] 


CONST 


[ Module DisklO 1 


CONST 


[ Module Clock 1 


TYPEP 


[ Module 10 Others 1 


VAR 


[ Module lOVideo 1 


VAR 


[ Module lOVideo ] 


VAR 


; Program System 1 


VAR 


; Program ^stem 1 


VAR 


; Program System 1 


VAR 


; Program ^stem J 


VAR 


; Program System 1 


T^PE 


: Module VolumeSystem 1 


VAR 


: Module Stream 1 


VAR 


: Module Screen 1 


VAR 


! Module Screen 1 


VAR 


: Module Screen 1 


T^PE 


[ Module CmdParse ] 


nPE 


[ Module FileDefs 1 


T^PE 


[ Module DisklO 1 


nPE 


[ Module AUocDisk ] 


nPE 


[ Module AllocDisk 1 


VAR 


[ Module AllocDisk 1 


CONST 


: Module FileTypes 1 


CONST 


; Module UserPass ] 


TYPE 


[ Module UserPass 1 


VAR 


: Module GetTimeStamp ] 


VAR 


[ Module GetTimeStamp 1 


TYPE 


[ Module FileDefs 1 


TYPE 


[ Module IO_Unit 1 


TYPE 


[ Module CmdParse ] 


T^PE 


[ Module DiskDef 1 


TYFE 


[ Module FileSystem ] 
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PDiskCtrlBlock 


TYPE 


[ Module DiskDef 1 


PDskCtrl 


VAR 


[ Module DiskDef ] 


pEtherAdRec 


TYPE 


[ Module EtherlOIO ] 


pEtherBuffer 


T^PE 


[Module EtherlOIO ] 


pEtherDCB 


TyPE 


[ Module EtherlOIO ] 


pEtherHeader 


TYPE 


[ Module EtherlOIO 1 


pEtherRegSave 


TYPE 


[ Module EtherlOIO 1 


pEtherStatus 


T^PE 


[ Module EtherlOIO ) 


PFileConst 


CONST 


[ Program System 1 


pFNString 


nPE 


[ Module Code 1 


pFootAr 


TfPE 


I Module PopUpCurs 1 


pGPIBStat 


T^PE 


[ Module 10 Unit 1 


pHiVolBlock 


TYPE 


[ Module IO_Private 1 


PhyDiskID 


nPE 


I Module VoTumeSystem 1 


pImpNode 


TYPE 


[ Module Code 1 


Pint Array 


TiVE 


[ Module Quicksort ] 


pKeyStat 


TiTPE 


[ Module 10 Unit 1 


PLogHead 




[ Module DiskUtility 1 


PLogHead 




[ Module DiskUtility ] 


pMMArray 


TJTPE 


[ Module Memory 1 


pMMBlockArray 


TyPE 


[ Module Memory 1 
[ Module PMatch 1 


pms255 


T^PE 


pNameAr 


TYPE 


[ Module PopUp ] 


pNameDesc 


Ti^PE 


[ Module PopUp 1 


point Allowed 


VAR 


' Program System 1 


PointBuf 


TYPE 


[ Module lOPointDev 1 


PointDev =11; Tablet 


CONST 


[ Module 10 Unit ] 


PointDevStat 


TiTPE 


[ Module lO'Unit 1 


PointX 


VAR 


[ Module lOVideo ] 


PointY 


VAR 


[ Module lOVideo ] 


popOK: boolean) 


VAR 


Module Pop>CffldParse J 


PortraitBitHeight 


CONST 1 


Module Screen ] 


PortraitBitWidth 


CONST 1 


Module Screen 1 


PortraitWordWidth 


CONST 1 


Module Screen 1 


pPointBuf 


T^PE 1 


[ Module lOPointDev 1 


pPointDevStat 


TYPE 1 


[ Module IO_Unit 1 


PrintStati sties 


VAR 1 


Program System 1 


ProfStr 


TYPE 1 


Module Profile J 


prompt: String; def 


VAR 1 


Module PopCmdParse 1 


pRS232Stat 


nPE 1 


Module lO.Unit ) 


pSAT 


TYPE 1 


Module Memory ] 


pSegBlock 


TYPE 1 


Module Code 1 


pSegNode 


TYPE 1 


Module Code ] 


PsgFile 


CONST I 


Module FileTypes ] 


pSIT 


TYPE I 


Module Memory 1 


PStrArray 


nPE I 


Module Quicksort 1 


pStreamBuffer 


TYPE { 


Module Stream ] 


PString 


Ti?E [ 


Module PERQ.String 1 


pSwitchRec 


lYVE [ 


Module CmdParse 1 


pSysNames 


TYPE 1 


Module Memory 1 


ptr 




Module FileAccess 1 


ptr 




Module FileAccess 1 


PtrDCA 


VAR 1 


Module DiskDef 1 


ptrDiskBuffer 


TYFE [ 


Module DisklO 1 


PtrDskCtrlArray 


T^PE [ 


Module DiskDef ] 


ptrFSDataEntry 


T^PE [ 


Module FileDefs 1 
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ptrHeader 

ptrScanRecx)rd 

ptrSearchList 

PtrVBuf 

PtrVHBuf 

ptrVolBuffer 

ptrVolHeaderBuffer 

pUDeviceTable 

pUDevTab 

puSClkDCB 

PVolHead 

PVolHead 

pZ80Stat 

pZ_Msg 

QCodeVersion 

QVerRange 

RaiseException 

RAnd 

RAndNot 

Random Index 

RasterArray 

RasterPtr 

RealMIndefinite 

RealMInfinity 

RealMLargest 

RealMSmallest 

RealPIndefinite 

RealPInfinity 

RealPLargest 

RealPSmallest 

RealRelTablet 

RECORDIOBITS 

Recvs Posted 

RelFile 

Res Array 

ResRes 

RFileFonnat 

RFileName 

RListHead 

RListTail 

icNot 

ROr 

ROrNot 

RRpl 

RSllO 

RSI 200 

RS160 

RSI 9200 

RS232Stat 

RS2400 

RS300 

RS4800 

RS600 

RS9600 

RSA=4 ;RS2320ut=RSA;RS232In 

RSB 



Tim 1 


[ Module DisklO 1 


TypK 1 


[ Module FileUtils 1 


Ti¥E 1 


[ Module FileSysteiB 1 


VAR 1 


[ Module DiskDef ] 


VAR 1 


[ Module DiskDef ] 


TYPE 1 


Module VolumeSystem 1 


TYPE 1 


Module Volume^stem 1 


TYPE 1 


[ Module 10 Private 1 


VAR 1 


[ Module 10 Private ] 


TYPE 


[ Module EtherlOIO 1 




[ Module DiskUtility 1 




[ Module DiskUtility 1 


TYPE 


[ Module 10 Unit 1 


TYPE 1 


[ Module 10 Private 1 


CONST 1 


Module Code 1 


TYPE 1 


: Module Code 1 


VAR 1 


Module lO.Private 1 


CONST 1 


Module Raster 1 


CONST 


[ Module Raster 1 


CONST 


[ Module DisklO 1 


TYPE 


: Module Raster 1 


TYPE 


Module Raster 1 


CONST 


Module RealFunctions 1 


CONST 


Module RealFunctions 1 


CONST 


Module RealFunctions 1 


CONST 


Module RealFunctions 1 


CONST 1 


Module RealFunctions 1 


CONST 


Module RealFunctions 1 


CONST 1 


Module RealFunctions 1 


CONST 1 


Module RealFunctions 1 


VAR 


[ Module 10 Others 1 


CONST 


[ Module DisklO 1 


VAR 


Module Etherlnterrupt 1 


CONST 


[ Module FileTypes ] 


TYPE 


[ Module PopUp 1 


nPE 


[ Module PopUp 1 


CONST 


Module Code 1 


VAR 


: Program System 1 


VAR 


: Module Etherlnterrupt 1 


VAR 


: Module Etherlnterrupt 1 


CONST 


Module Raster 1 


CONST 


: Module Raster 1 


CONST 


'. Module Raster ] 


CONST 


[ Module Raster ] 


CONST 


[ Module 10 Unit 1 


CONST 


[ Module 10 Unit 1 


CONST 


[ Module 10 Unit 1 


CONST 


[ Module IO""Unit 1 


TYPE 


[ Module lO'Unit 1 


CONST 


[ Module 10 Unit 1 


CONST 


[ Module 10 Unit 1 


CONST 


[ Module lO^Unit 1 


CONST 


[ Module 10 Unit 1 


CONST 


[ Module 10 Unit 1 


CONST 


[ Module 10 Unit 1 


CONSl 


[ Module 10 Unit 1 
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RSExt 


CONST [ 


RSIntMask 


VAR I 


RS MaxBytes 


CONST I 


RS"MaxWords 


CONST [ 


RS StatusType 


TYPE [ 


RS_WrtReg 


T/PE [ 


RunElement 


nPE I 


RunFile 


CONST [ 


RunFileType 


T^PE [ 


Runlnfo 


T^PE [ 


RunReadVersion 


CONST t 


RunWriteVersion 


CONST [ 


RXNor 


CONST [ 


RXor 


CONST [ 


s25 


nPE [ 


SAT 


VAR [ 


SATarray 


TirPE I 


SATentry 


TiFE I 


SATSeg 


CONST I 


Save 


VAR [ 


SavedSwapId 


VAR [ 


SBitHeight 


VAR [ 


SbitWidth 


VAR [ 


SBootFile 


CONST I 


SBottomY 


VAR [ 


ScanRecord 


TYPE [ 


ScreenLast 


VAR [ 


ScreenOut 


CONST [ 


ScreenSeg 


CONST [ 


ScreenVersion 


CONST [ 


SCurBitHeight 


VAR [ 


SCursorOn 


VAR I 


SearchLi st 


T^PE I 


SEARCHSIZELISr 


CONST [ 


SegBlock 


TYPE [ 


SegFile 


CONST t 


SegFileType 


nPE ( 


SegHint 


TirPE t 


SegID 


TiVE [ 


SegLength 


CONST C 


SegmentKind 


TYPE [ 


SegmentMobility 


TYPE I 


SegmentNumber 


TYPE [ 


SegNode 


nPE I 


SendsPosted 


VAR t 


SetStkBase 


CONST I 


SetStkLimit 


CONST [ 


Setting 


VAR [ 


SFunc 


VAR [ 


ShellConst 


CONST [ 


ShellCtrl 


VAR I 


ShellName 


VAR I 


Shou 1 dReEnab 1 eSwapp i ng 


VAR [ 


SimpleName 


nPE I 


SIsLandScape 


VAR [ 


SIT 


VAR [ 



Uodule 10 Unit ] 
Module lORS 1 
Module ID Unit 1 
Module lO'Unit ] 
Module IO~Unit ] 
Module lOlUnit 1 
Module Code 1 
Module FileTypes ] 
Module Code 1 
Module Code 1 
Module RunRead ) 
Module RunWrite ] 
Module Raster 1 
Module Raster ] 
Module PopUp ] 
Module Memory ] 
Module Memory ] 
Module Memory ] 
Module Memory ] 
Module IO_Private 1 
Program System 1 
Module Screen ] 
Module Screen ] 
Module FileTypes 1 
Module 10 Private ] 
Module FiTeUtils 1 
Module Virtual ] 
Module IO_Unit 1 
Module Memory 1 
Module Screen 1 
Module Screen ] 
Module Screen 1 
Module FileSystem 1 
Module FileSystem ] 
Module Code 1 
Module FileTypes 1 
Module Code ] 
Module Code ] 
Module FileDefs ] 
Module Code ] 
Module Memory ] 
Module Memory ] 
Module Memory ] 
Module Code 1 
Module Ether! nterrupt 1 
Module Memory 1 
Module Memory ] 
Module lO.Unit ) 
Module Screen 1 
Program ^stem 1 
Program System 1 
Program System 1 
Program System ] 
Module FileDefs 1 
Module Screen ] 
Module Memory ] 
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SITarray TYPE 

SITentry TYPE 

SITSeg CONST 

SLeftX CONST 

SListHead VAR 

SMStatus TYPE 

SNArray TYPE 

SMaxBitHeight VAR 

SNumTitleChars VAR 

softStat VAR 

Speech CONST 

SpiceSegKind TYPE 

SRightX CONST 

ss25 TYPE 

SScreenP VAR 

SScreenW CONST 

Swapid VAR 

StackLeader CONST 

StackPointer VAR 

StackSegment VAR 

StanleyTablet VAR 

StartBlk CONST 
Stat: pEtherStatus; Bytes CONST 

StatBlk VAR 

StatPtr VAR 

Status VAR 

STTitStrType CONST 

STopY CONST 

StrArray TYPE 

StreamBuffer TYPE 

StreamSegment VAR 

StreamVers i on CONST 

StrVersion VAR 

StsPtr VAR 

StsPtr VAR 

StsPtr VAR 

StsPtr VAR 

SufapFile CONST 

Swapid VAR 

Swapp i ngAl 1 owed VAR 

SwapSId VAR 

SwapTiine VAR 

SwitchRec TYPE 

Sys9s TYPE 

SysBootChar VAR 

SysDisk VAR 

SysFile CONST 

SysNameArray TYPE 

SysNameSeg CONST 

SysSegLength CONST 

SysSegName TYPE 

Systemlnitialized VAR 

SystemVersion VAR 

SysTiming CONST 

TabAbsX VAR 

TabAbsY VAR 



Module Memory 1 
Module Memory ] 
Module Memory 1 
Module 10 Private ) 
Module EtHerlnterrupt 1 
Module DiskDef ] 
Module Code 1 
Module Screen ] 
Module Screen 1 
Module DisklO ] 
Module 10 Unit ] 
Module DisklO ] 
Module 10 Private ) 
Module Quicksort 1 
Module Screen ] 
Module Screen 1 
Module Memory ] 
Module Code 1 
Module Etherlnterrupt 1 
Module Msmory ] 
Module lOVideo ] 
Module FileSystem ] 
Module EtherlOIO 1 
Module lOFloppy 1 
Module DiskDef ] 
Module Virtual ] 
Module Screen ] 
Module 10 Private 1 
Module Quicksort 1 
Module Stream ] 
Module Stream ] 
Module Stream ] 
Program System 1 
Module lOGPIB 1 
Module lOPointDev 1 
Module lORS ] 
Module lOJnit 1 
Module FileTypes 1 
Module Memory ] 
Module Memory 1 
Module Virtual ] 
Program System 1 
Module CmdParse ] 
Program System 1 
Program ^stem 1 
Program System 1 
Module FileSystem ] 
Module Memory 1 
Module Memory ] 
Module Memory 1 
Module Memory ] 
Program System 1 
Program ^stem 1 
Program ^stem 1 
Module IO_Others ) 
Module 10 Others ] 
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Tabfilue 


VAR 


[ Module 10 Others ) 


TabCount 


VAR 


[ Module lOVideo ] 


TabFinger 


VAR 


[ Module 10 Others ] 


TabGreen 


VAR 


[ Module lO'Others ] 


Tab Ignore 


CONST 


[ Module lOVideo 1 


TabLeft 


TYPEP 


[ Module 10 Others 1 


TabletMode 


nPE 


[ Module 10 Others ] 


Tab let Type 


TYPE 


[ Module 10 Others 1 


TabMiddle 


nPEP 


[ Module 10 Others ] 


TabMode 


VAR 


[ Module lOVideo ) 


TabMouse 


VAR 


[ Module 10 Others 1 


TabRelX 


VAR 


[ Module 10 Others ) 


TabRelY 


VAR 


[ Module 10 Others 1 


TabRight 


Ti?E? 


[ Module 10 Others 1 


TabSwitch 


VAR 


[ Module 10 Others ] 


TabWhite 


VAR 


[ Module 10 Others 1 


TabYellow 


VAR 


I Module 10 Others J 


TekResult 


TTPE 


[ Module LoadZSO ) 


TempFile 


CONST 


I Module FileTypes ] 


TextFile 


CONST 


[ Module FileTypes ] 


TimeBuf 


VAR 


: Module lO^Private J 


TimeFID 


VAR 


I Program Slystem 1 


Timer 


CONST 


[ Module IO_Unit 1 


TimeReference 


nPE 


[ Module GetTimeStamp ] 


times 


CONST 


[ Module lOGPIB ] 


TimeStamp 


nPE 


[ Module GetTimeStanq) 1 


TimeString 


TYPE 


: Module Clock ] 


TitStrLength 


CONST 


'. Module Screen 1 


TotalWidth 


VAR 


: Module PasReal 1 


TotSize: integer; Mob 




[ Module BigArea 1 


TransKey 


CONST 


[ Module lO.Unit 1 


TransMicro 


nPE 


[ Module Control Store 1 


TransMode 


T^PE 1 


[ Module FTPUtils 1 


TRCCAdrHigh 


CONST 1 


[ Module EtherlOIO ] 


TRCCAdrMid 


CONST 1 


[ Module EtherlOIO 1 


UDeviceTable 


nPE 1 


[ Module 10 Private ) 


Unit 


VAR 1 


[ Module 10 Private 1 


Unit Number 


TYPE 1 


[ Module DiskDef 1 


UnitRng 


TYPE 1 


[ Module lO.Unit 1 


UnknownFi le 


CONST 1 


[ Module FiTeTypes 1 


uSClkDCB 


TYPE 1 


I Module EtherlOIO 1 


UseCmd 


VAR 1 


[ Program System 1 


Userint 


VAR 1 


Program System 1 


UserMode 


VAR 1 


Program Systeia ] 


UserPtr 


VAR 1 


Program System 1 


UserRecord 


TYPE 1 


Module UserPass 1 


Users 


TYPE 1 


Module UserPass ] 


UsrCmdLine 


VAR 1 


Program System 1 


value 


VAR 1 


Module PasReal 1 


VirtualVersion 


CONST 1 


Module Virtual ] 


VolAddress 


TiVE 1 


Module VolumeSystem ] 


VolBlockNumber 


TYPE 1 


Module VolumeSystem ) 


VolBuffer 


Ti^PE I 


Module VolumeSystem 1 


VolErrorCnt 


VAR 1 


Module VolumeSystem 1 


VolHeaderBuffer 


TYPE 1 


Module VolumeSystem ] 


Vol ID 


TiTPE I 


Module VolumeSystem 1 
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Vol lOCommand 

Vol Name 

VolRangeType 

Width 

Window? 

WindowType 

WinRange 

WinTable 

WordSize 

WpDB 

WpFS 

Z80 

ZSOStat 

Z_CmdRegister 

Z Coiomands 

ZlData 

Z DataSize 

Z^FirstData 

Z"lntDisabled 

Z~MaxData 

ZiMsg 

Z Ms gNot Avail able 

Z^MsgEtrKludge 

Z_NoData 

Z Queue 

ZlSOM 

^Cylinders 

#Heads 

#Sectors 
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, Var. , & Constants January 15, 


nPE 


[ Module VolumeSystem ] 


TYPE 


[ Module Volume^steffl ] 


TYPE 


[ Module Volume^stem ] 
[ Module Screen J 


VAR 


TYPE 


[ Module Screen ] 


TYPE 


[ Module Screen ] 


TYPE 


[ Module Screen 1 


VAR 


[ Module Screen J 


VAR 


[ Module Stream 1 


CONST 


[ Module DiskDef ] 


CONST 


[ Module DiskDef ] 


CONST 


[ Module 10 Unit ] 


T^PE 


I Module lO'Unit 1 


Ti?E 


; Module 10 Private 1 


Tim 


[ Module 10 Private ] 


TyPE 1 


[ Module I0"Private 1 


CONST 1 


[ Module lO'Private 1 


CONST 1 


Module 10 Private 1 


VAR 1 


Module 10 Private 1 


CONST 1 


Module 10 Private ) 


T^PE 1 


Module 10 Private 1 


VAR 1 


Module 10 Private ) 


T^PE 1 


Module 10 Private 1 


CONST I 


Module 10 Private 1 


TJfPE I 


Module 10 Private 1 


CONST [ 


Module 10 Private ] 


T/PE [ 


Module DiskDef ) 


TYPE [ 


Module DiskDef 1 


TYPE I 


Module DiskDef 1 
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